


MOVABLE BARRIER OPERATOR HAVING FORCE 
AND POSITION LEARNING CAPABILITY 



BACKGROUND OF THE INVENTION 



The invention relates in general to a movable 



5 barrier operator for opening and closing a movable barrier 
or door. More particularly, the invention relates to a 
garage door operator that can learn force and travel limits 
when installed and can simulate the temperature of its 
electric motor to avoid motor failure during operation. 

10 A number of garage door operators have been sold 

over the years. Most garage door operators include a head 
unit containing a motor having a transmission connected to 
it, which may be a chain drive or a screw drive, which is 
coupled to a garage door for opening and closing the garage 

15 door. Such garage door openers also have included optical 
detection systems located near the bottom of the travel of 
the door. to prevent the door from closing on objects or on 
persons that may be in the path of the* door. Such garage 
door operators typically include a wall control which is 

2 0 connected via one or more wires to the head unit to send 
signals to the head unit to cause the head unit to open and 
close the garage door, to light a worklight or the like. 
Such prior art garage door operators also include a 
receiver and head unit for receiving radio frequency 

25 transmissions from a hand-held code transmitter or from a 
keypad transmitter which may be affixed to the outside of 
the garage or other structure. These- ga age door operators 
typically include adjustable limit switches which cause the 
garage door to operate or to halt the motor when the travel 

30 of the door causes the limit switch to change state which 
may either be in the up position or in the down position. 
This prevents damage to the door as well damage to the 
structure supporting the door. It may be appreciated, 
however, that with different size garages and different 

35 size doors, the limits of travel must be custom set once 
the unit is placed within the garage. In the past, such 
units have had mechanically adjustable limit switches which 



are typically set by an installer. The installer must go 
back and forth between the door, the wall switch and the 
head unit in order to make the adjustment. This, of 
' course, is time consuming and results in the installer 
being forced to spend more time than is desirable to 
install the garage door operator. 

A number of requirements are in existence from 
Underwriter's Laboratories, the Consumer Product Safety 
Commission and the like which require that garage door 
operators sold in the United States must, when in a closing 
mode and contacting an obstruction having a height of more 
than one inch, reverse and open the door in order to 
prevent damage to property and injury to persons. Prior 
art garage door operators also included systems whereby the 
force which the electric motor applied to the garage door 
through the transmission might be adjusted. Typically, 
this force is adjusted by a licensed repair technician or 
installer who obtained access to the inside of the head 
unit and adjusts a pair of potentiometers, one of which 
sets the maximal force to be applied during the closing 
portion of door operation, the other of which establishes 
the maximum force to be applied during the opening of door 
operation. 

Such a garage door operator is exemplified by an 
operator taught in U.S. Patent No. 4,638,443 to Schindler. 
However, such door operators are relatively inconvenient to 
install and invite misuse because the homeowner, using such 
a garage door operator, if the garage door operator begins 
to bind or jam in the tracks, may likely obtain access to 
the head unit and increase the force limit. Increasing the 
maximal force may allow the door to move passed a binding 
point , but apply the maximal force at the bottom of its 
travel when it is almost closed where, of course, it should 
not . 

Another problem associated with prior art garage 
door operators is that they typically use electric motors 
having thermostats connected in series with portions of 



their windings. The thermostats are adapted to open when 
the temperature of the winding exceeds a preselected limit. 
The problem with such units is that when the thermostats 
open, the door then stops in whatever position it is then 
in and can neither be opened or closed until the motor 
cools, thereby preventing a person from exiting a garage or 
entering the garage if they need to. 

SUMMARY OF THE INVENTION 

The present invention is directed to a movable 
barrier operator which includes a head unit having an 
electric motor positioned therein, the motor being adapted 
to drive a transmission connectable to the motor, which 
transmission is connectable to a movable barrier such as a 
garage door. A wired switch is connectable to the head 
unit for commanding the head unit to, open and close the 
door and for commanding a controller within the head unit 
to enter a learn mode. The controller includes a micro- 
controller having a non -volatile memory associated with it 
which can store force set points as well as digital end of 
travel positions within it. When the controller is placed 
in learn mode by appropriate switch closure from the wall 
switch, the door is caused to cycle open and closed. The 
force set point stored in the non-volatile memory is a 
relatively low set point and if the door is placed in learn 
mode and the door reaches a binding position, the set pc: .nt 
will be changed by increasing the set point to enable the 
door to travel through the binding area. Thus, the set 
points will be dynamically adjusted as the door is in the 
learn, but the set points will not be changeable once the 
door is taken out of the learn mode, thereby preventing the 
force set point from being inadvertently increased, which 
might lead to property damage or injury. Likewise, the end 
of travel positions can be. adjusted automatically when in 
the learn mode because if the door is halted by the 
controller, when the controller senses that the door 



position has reached the previously set end of travel 
position, the- door will then be commanded by a button push 
from the wall switch to keep travelling in the same 
direction, thereby incrementing or changing. The end of 
travel limits are set by pushing the learn button on the 
wall switch which causes the door to travel upward and 
continue travelling upward until the door has travelled as 
far as the operator wishes it to travel. The disables the 
learn switch by lifting his hand from the button. The up 
limit is then stored and the door is then moved toward the 
closed position. A pass point or position normalizing 
system consisting of a ring-like light interrupter attached 
to the garage door crosses the light path of an optical 
obstacle detector signalling instantaneously the position 
of the door and the door continues until it closes, where- 
upon force sensing in the door causes an auto- reverse to 
take place and then raises the door to the up position, the 
learn mode having been completed and the door travel limits 
having been set. 

The movable barrier operator also includes a 
combination of a temperature sensor and microcontroller. 
The temperature sensor senses the ambient temperature 
within the head unit because it is positioned in proximity 
with the electric motor. When the electric motor is 
operated, a count is incremented in the microcontroller 
which is multiplied by a constant which is indicative of 
the speed at which the motor ij moving. This incremented 
multiplied count is then indicative of the rise in tempera- 
ture which the motor has experienced by being operated. 
The count has subtracted from it the difference between the 
simulated temperature and the ambient temperature and the 
amount of time which the motor has been switched off. The 
totality of which is multiplied by a constant. The remain- 
ing count then is an indication of the extant temperature 
of the motor. In the event that the temperature, as 
determined by the microcontroller, is relatively high, the 
unit provides a predictive function in that if an attempt 



is made to open or close the garage door, prior to the door 
moving, the microcontroller will make a determination as to 
whether the single cycling of the door will add additional 
temperature to the motor causing it to exceed a set point 
temperature and, if so, will inhibit operation of the door 
to prevent the motor from being energized so as to exceed 
its safe temperature limit. 

The movable barrier operator also includes light 
emitting diodes for providing an output indication to a 
user of when a problem may have been encountered with the 
door operator. In the event that further operation of the 
door operator will cause the motor to exceed its set point 
temperature, an LED will be illuminated as a result of the 
microcontroller temperature prediction indicating to the 
user that the motor is not operating because further opera- 
tion will cause the motor to exceed its safe temperature 
limits. 

It is a principal aspect of the present invention 
to provide a movable barrier operator which is able to 
quickly and automatically select end of travel positions. 

It is another aspect of the present invention to 
provide a movable barrier operator which, upon installa- 
tion, is able to quickly establish up and down force set 
points. 

It is still . another aspect of the present 
invention to provide a movable barrier operator which can 
determine the temperature of the motor based upon motor 
history and the ambient temperature of the head unit. 

Other aspects and advantages of the invention 
will become obvious to one of ordinary skill in the art 
upon a perusal of the following specification and claims in 
light of the accompanying drawings. 



BRIEF DESCRIPTION OF THE DRAWINGS 



FIG. 1 is a perspective view of a garage having 
mounted within it a garage door operator embodying the 
present invention; 

FIG. 2 is a block diagram of a controller mounted 
within the head unit of the garage door operator employed 
in the garage door operator shown in FIG. 1; 

FIG. 3 is a schematic diagram of the controller 
shown in block format in FIG. 2; 

FIG. 4 is a schematic diagram of a receiver 
module shown in the schematic diagram of FIG. 3; 

FIG. 5A-B are a flow chart of a main routine that 
executes in a microcontroller of the control unit; 

FIGS. 6A-G are a flow diagram of a learn routine 
executed by the microcontroller; 

FIGS. 7A-B are flow diagrams of a timer routine 
executed by the microcontroller; 

FIGS. 8A-B are flow diagrams of a state routine 
representative of the current and recent state of the 
electric motor ; 

FIGS. 9A-B are a flow chart of a tachometer input 
routine and also determines the position of the door on the 
basis of the pass point system and input from the optical 
obstacle detector; 

FIGS. 10A-C are flow charts of the switch input 
routines from the switch module; and 

FIG. 11 is a schematic diagram of the switch 
module and the switch biasing circuit. 



DETAILED DESCRIPTION OF THE PREFERRED EMBODIMENT 



Referring now to the drawings and especially to 
FIG. 1, more specifically a movable barrier door operator 
or garage door operator is generally shown therein and 
referred to by numeral 10 includes a head unit 12 mounted 
within a garage 14. More specifically, the head unit 12 is 
mounted to the ceiling of the garage 14 and includes a rail 
18 extending therefrom with a releasable trolley 20 
attached having an arm 22 extending to a multiple paneled 
garage door 24 positioned for movement along a pair of door 
rails 26 and 28. The system includes a hand-held trans- 
mitter unit 30 adapted to send signals _ to an antenna 32 
positioned on the head unit 12 and coupled to a receiver as 
will appear hereinafter. An external control pad 34 is 
positioned on the outside of the garage having a plurality 
of buttons thereon and communicate via radio frequency 
transmission with the antenna 32 of the head unit 12. A 
switch module 39 is mounted on a wall of the garage. The 
switch module 39 is connected to the head unit by a pair of 
wires 39a. The switch module 39 includes a learn switch 
39b, a light switch 39c, a lock switch 39d and a command 
switch 39e. An optical emitter 42 is connected via a power 
and signal line 44 to the head unit. An optical detector 
46 is connected via a wire 48 to the head unit 12. A pass 
point detector 49 comprising a bracket 49a and a plate 
structure 49b extending from the bracket has a substantial- 
ly circular aperture 49c formed in the bracket, which 
aperture might also be square or rectangular. The pass 
point detector is arranged so that it interrupts the light 
beam on a bottom leg 49d and allows the light beam to pass 
through the aperture 49c. The light beam is again inter- 
rupted by the leg 49e, thereby signalling the controller 
via the optical detector 46 that the pass point detector 
attached to the door has moved passed a certain position 
allowing the controller to normalize or zero its position, 
as will be appreciated in more detail hereinafter. 
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As shown in FIG. 2, the garage door operator 10, 
which includes the head unit 12 has a controller 70 which 
includes the antenna 32. The controller 70 includes a 
power supply 72 which receives alternating current from an 
5 alternating current source, such as 110 volt AC, and 
converts the alternating current to +5 volts zero and 
24 volts DC. The 5 volt supply is fed along a line 74 to 
a number of other elements in the controller 70. The 
24 volt supply is fed along the line 76 to other elements 
10 of the controller 70. The controller 70 includes a super- 
regenerative receiver 80 coupled via a line 82 to supply 
demodulated digital signals to a microcontroller 84. The 
receiver is energized by a line 86 coupled to the line 74. 
The microcontroller is also coupled by a bus 86 to a non- 
15 volatile memory 88, which non- volatile memory stores set 
points and other customized digital data related to the 
operation of the control unit. An obstacle detector 90, 
C3 which comprises the emitter 42 and infrared detector 46 is 

coupled via an obstacle detector bus 92 to the micro- 
20 controller. The obstacle detector bus 92 includes lines 44 
and 48. The wall switch 39 is connected via the connecting 
wires 39a to a switch biasing module 96 which is powered 
from the 5 volt supply line 74 and supplies signals to and 
is controlled by the microcontroller via a bus 100 coupled 
25 to the microcontroller. The microcontroller, in response 
to switch closures, will send signals over a relay logic 
line 102 to a relay logic module 104 connected to an 
alternating current motor 106 having a power take-off shaft 
108 coupled to the transmission 18 of the garage door 
3 0 operator. A tachometer 110 is coupled to the shaft 108 and 
provides a tachometer signal on a tachometer line 112 to 
the microcontroller 84. The tachometer signal being 
indicative of the speed of rotation of the motor. 

The power supply 72 includes a transformer 13 0 
35 which receives alternating current on leads 132 and 134 
from an external source of alternating current. The 
transformer steps down the voltage to 24 volts and feeds 



24 volts to a pair of capacitors 138 and 140 which provide 
a filtering function. A 24 volt filtered DC potential is 
supplied on the line 76 to the relay logic 104. The 
potential is fed through a resistor 142 across a pair of 
filter capacitors 144 and 146, which are connected to a 
5 volt voltage regulator 150, which supplies regulated 
5 volt output voltage across a capacitor 152 and a Zener 
diode 154 to the line 74. 

Signals may be received by the controller at the 
antenna 32 and fed to the receiver 80. The receiver 80 
includes a pair of inductors 170 and 172 and a pair of 
capacitors 174 and 176 that provide impedance matching 
between the antenna 32 and other portions of the receiver. 
An NPN transistor 178 is connected in common base configur- 
ation as a buffer amplifier. Bias to the buffer amplifier 
transistor 178 is provided by resistors 180. A resistor 
188, a capacitor 190, a capacitor 192 and a capacitor 194 
provide filtering to isolate a later receiver stage from 
the buffer amplifier 178. An inductor 196 also provides 
power supply buffering. The buffered RF output signal is 
supplied on a line 200, coupled between the collector of 
the transistor 178 and a receiver module 202 which is shown 
in FIG. 4. The lead 204 feeds into the unit 202 and is 
coupled to a biasing resistor 220. The buffered radio 
frequency signal is fed via a coupling capacitor 222 to a 
tuned circuit 224 comprising a variable inductor 226 
connected in parallel with a capacitor 228. Signals from 
the tuned circuit 220 are fed on a line 230 to a coupling 
capacitor 232 which is connected to an NPN transistor 234 
at its based 236. The transistor has a collector 240 and 
emitter 242. The collector 240 is connected to a feedback 
capacitor 246 and a feedback resistor 248. The emitter is 
also coupled to the feedback capacitor 246 and to a 
capacitor 250. The line 210 is coupled to a choke inductor 
256 which provides ground potential to a pair of resistors 
258 and 260 as well as a capacitor 262. The resistor 258 
is connected to the base 236 of the transistor 234. The 



resistor 260 is connected via an inductor 264 to the 
emitter. 242 of the transistor. The output signal from the 
transistor is fed outward on a line 212 to an electrolytic 
capacitor 270. 

As shown in FIG. 3, the capacitor 270 capaci- 
tively couples the demodulated radio frequency signal to a 
bandpass amplifier 280 to an average detector 282 which 
feeds a comparator 284, The comparator 284 also receives 
a signal directly from the bandpass amplifier 280 and 
provides a demodulated digital output signal on the line 82 
coupled to the P32 pin of the Z86E21/61 microcontroller. 
The microcontroller is energized by the power supply 72 and 
also controlled by the wall switch 39 coupled to the micro- 
controller by the leads 100. 

From time to time, the microcontroller will 
supply current to the switch biasing module 96. 

The microcontroller operates under the control of 
a main routine as shown in FIGS. 5A and 5B. When the unit 
is powered up, a power on reset is performed in a step 300 , 
the memory is cleared and a check sum from read-only memory 
within the microcontroller 84 is tested. In a step 302, if 
the check sum and the memory prove to be correct, control 
is transferred to a step 304, if not, control is trans- 
ferred back to the step 300. In the step 304, the last 
non-volatile state, which is indicative of the state of the 
operator, that is whether the operator indicated the door 
was at its up limit, down Unit or in the middle of its 
travel, is tested for in a step 304 and if the last state 
is a down limit, control is transferred to a step 306. If 
it was an up limit, control is transferred to a step 308. 
If it was neither a down nor an up limit, control is 
transferred to a step 310. In the step 306, the position 
is set as the down limit value and a window flag is set. 
The operation state is set as down limit. In a step 308, 
the position is set as up, the window flag is set and the 
operation state is set as up limit. In the step 310, the 
position is set as outside the normal range, 6 inches below 



m 
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the secondary up limit. The operation state is set as 
stopped. Control is transferred from any of steps 306, 308 
and 310 to a step 312 where a stored simulated motor 
temperature is read from the non- volatile memory 88. The 
5 temperature of a printed circuit board positioned within 
the head unit is read from the temperature sensor 120 which 
is supplied over a line 120a to the microcontroller. In 
order to read the PC board temperature, a pin P2 0 of the 

pis 

r : | microprocessor is driven high, causing a high potential to 

□ 10 appear on a line 12 0b which supplies a current through the 

jVJ RTD sensor 120 to a comparator 120c. A capacitor 120d 

y3 connected to the comparator and to the temperature sensor, 

is grounded and charges up. The other input terminal to 
s the comparator has a voltage divider 120e connected to it 

15 to supply a reference voltage of about 2.5 volts. Thus, 
hi the microcontroller starts a timer running when it brings 

H 4 line 120b high and interrogates a line 120f to determine 

nl its state. The line 12 Of will be driven high when the 

temperature at the junction of the RTD 12 0 and the 
20 capacitor 120d exceeds 2.5 volts. Thus, the time that it 
takes to charge the capacitor through the resistance is 
indicative of the temperature within the head unit and, in 
this manner, the PC board temperature is read and if the 
temperature as read is greater than "the temperature 
25 retrieved from the non-volatile memory, the temperature 
read from the PC board is then stored as the motor 
temp€ mature . 

In a step 314, constants related to the receipt 
and processing of the demodulated signal on the line 82 are 

30 initialized. In a step 316, a test is made to determine 
whether the learn switch 39b had been activated within the 
last 30 seconds. If it has not, control is transferred 
back to the step 314. 

In a step 318, a test is made to determine 

35 whether the command switch debounce timer has expired. If 
it has, control is transferred to a step 320. If it is 
not, control is transferred back to the step 314. In .the 
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step 320, the learn limit cycle is begun as will be 
discussed, in more detail as to FIGS. 6A through 6G. The 
main routine effectively has a number of interrupt routines 
coupled to it. In the event that a falling edge is 
5 detected on the line 112 from the tachometer, an interrupt 
routine related to the tachometer is serviced in the step 
322. A timer interrupt occurs every 0.5 millisecond in a 
step 324 as shown in FIGS. 7A through 7B. 

The obstacle detector 90 generates a pulse every 
p 10 . 10 milliseconds during the time when the beam from the 

p3 infrared emitter 42 has not been interrupted either by the 

jj pass poxnt system 49 or by an obstacle, in a step 326 

P following which the obstacle detector timer is cleared in 

M ^ a step 328 . 

□ 15 As shown in FIGS. 10A through 10C, operation of 

LHf the switch biasing module 96 is controlled over the lines 

\| 100 by the microcontroller 84. The microcontroller 84, in 

W the step 340, tests to determine whether an RS232 digital 

communications mode has been set. If it has, control is 
20 transferred to a step 342, as shown in FIG. 10C, testing 
whether data is stored in an output buffer to be output 
from the microcontroller. If it is, control is transferred 
to a step 344 outputting the next bit, which may include a 
start bit, from the output buffer and control is then 
25 transferred back to the main routine. In the event that 
there is no data in the data buffer, control is transferred 
to the step 346, testing whether data is baing received 
over lines 100. If it is being received, control is 
transferred to a step 348 to receive the next bit into the 
3 0 input buffer and the routine is then exited. If not, 
control is transferred to a step 350. In the step 350, a 
test is made to determine whether a start bit for RS232 
signalling has been received. If it has not, control is 
transferred to a return step 352. If it has, control is 
35 transferred to a step 354 in which a flag is set indicating 
that the start bit has been received and the routine is 
exited. As shown in FIG. 10A, if the response to the 
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decision block 340 is no, . control is transferred to a 
decision step 360. The switch status counter is incre- 
mented and then a test is determined as to whether the 
contents of the counter are 29. If the switch counter is 
5 29, control is transferred to a step 362 causing the 
counter to be zeroed. If the counter is not 29, control is 
transferred to a step 364, testing for whether the switch 
\& status is equal to zero. If the switch . status is equal to 

P zero, control is transferred to a step 366. In a step 366, 

10 a current source transistor 368, shown in FIG. 8, is 
switched on, drawing current through resistors 3 70 and 3 72 
and feeding current out through a line 39a connected 
in thereto to the switch module 39a and, more specifically, to 

!L t a resistor 380, a 0.10 microfarad capacitor 382, a 

nj 15 1 microfarad capacitor 384, a 10 microfarad capacitor 386 



*W and a switch terminal 3 88. The switch 39e is coupled to 

£ the switch terminal 388. The switch 3 9d may be selectively 

nj coupled to the capacitor 386. The 'switch 39b may be 

selectively coupled to the capacitor 384. The switch 39c 
20 may be selectively coupled to the capacitor 382. A light 
emitting diode 392 is connected to the resistor 380. 
Current flows through the resistor 380 and the light 
emitting diode 392 back to another one of the lines 39a and 
through a field effect transistor 398 to ground. In step 
25 402, the sense input on a line 100 coupled to the 
transistor 398 is tested to determine whether the input is 
high. If the input is high immediately, that is indicative 
of the fact that switches 39b through 39e are all open and 
in a step 404, debounce timers are decremented for all 
30 switches and a got switch flag is set and the routine is 
exited in the event that the test of step 402 is negative. 
Control is then transferred to a step 406 testing after 
10 milliseconds if the sense in output on the line 100 
connected to the field effect transistor 398 is high, which 
35 would be indicative of the switch 39c having been closed. 
If it is high, the worklight timer is incremented, all 
other switch timers are decremented, the got switch flag is 
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set and the routine is exited. In the event that the 
decision in step 406 is in the negative, control is 
transferred to a step 410 and the routine is exited, In 
the event that the decision from step 364 is in the 
5 negative, control is transferred to a step 412 wherein the 
switch status is tested as to whether it is equal to one. 
If it is, control is transferred to a step 414 testing 
whether the sensed input on the line 100 connected to the 
field effect transistor is high. If it is, control is 
y 10 transferred to step 416 to set the got switch flag, after 

y which in a step 418, the learn switch debouncer is incre- 

]jj mented, all other switch counters are decremented, the got 

il? switch flag is set and the routine is exited. -In the event 

Vi 1 

5 that the answer to step 414 is in the negative, control is 

f"S 

J5* 15 transferred to a return step 420. 

PJ In the event that the answer to step 412 is in 

.2 the negative, control is transferred to a step 422, as 

fjj shown in FIG. 10B. A test is made as to whether the switch 

status is equal to 10. If it is, control is transferred to 
20 a step 424 where the sense out input is tested as high. 

Thus, the charging rate for the capacitors which, 
in effect / is sensed on the line 100 connected to the field 
effect transistor 398 which is coupled to ground, is indi- 
cative of which of the switches is closed because the 
25 switch 39c has a capacitor that charges at 10 times the 
rate of the capacitor 384 connected to 39b and 100 times 
the rate of the capacitor 386 selectively couplable to 
switch 39d. 

After the switch measurement has been made, the 
3 0 transistor 368 is switched non-conducting by the line 368b 
and the field effect transistor 398 is switched non- 
conducting by a line 450 connected to its gate. A 
transistor 462, coupled via a resistor 464 to a line 466, 
is switched on, biasing a transistor 468 on, causing 
35 current to flow through a diagnostic light emitting diode 
470 to a field effect transistor 472 which is switched on 
via a voltage on a line 474. In addition, the capacitors 
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386, 384 and 382, which may have been charged are 
discharged through the field effect transistor 472. 

In order to perform all of the switching 
functions after the step 424 has been executed, control is 
5 transferred to a step 510 testing whether the got switch 
flag has been cleared. If it has, control is transferred 
to a step 512 in which the command timer is incremented and 
all other timers are decremented and the got switch flag is 
set and the routine is exited. If the got switch flag is 
S3 10 cleared as indicated in the step 510, the routine is exited 

W' in the step 514. In the event that the sense input is 

p measured as being high in the step 424, control is trans - 

U1 ferred to a step 516 where the vacation or lock flag 

*U counter is incremented and all other counters are decre- 

15 mented. The got switch flag is set and the routine is 
exited. In the event that the switch status equal 10 test 
p in the step 422 is indicated to be no, control is then 

W transferred to a step 520 testing whether the switch status 

is 11. If the switch status is 11, indicating that the 
2 0 routine has been swept through 11 times, control is 
transferred to a step 522 in which the field effect 
transistors 398 and 472 are both switched on, providing 
ground pads on both sides of the capacitors causing the 
capacitors to discharge and the routine is then exited. In 
25 the event that the step 520 test is negative, control is 
transferred to a step 524 testing whether the routine has 
been executed 15 times. If it has, control is transferred 
to a step 526 indicating that the bit which controls the 
status the light emitting diode 470, the diagnostic light 
30 emitting diode, has been set. If it has not been set, 
control is transferred to a step 528 wherein both 
transistors 368 and 468 are switched on and both the field 
effect transistors 398 and 472 are switched off- In order 
to test for short circuits between the source and drain 
35 electrodes of the field effect transistors 398 and 472 
which might cause false operation signals to be supplied on 
the lines 100 to the microcontroller 84, resulting in 
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inadvertent operation of the electric motor. The routine 
is then exited. In the event that the test in step 526 
indicates that the diagnostic LED bit has been set, control 
is transferred to a step 530. In the step 530, the 
transistors 468 and 472 are switched on allowing current to 
flow through the diagnostic LED 470. In the event that the 
test in step 524 is negative, a test is made in a step 532 
as to whether the routine has been executed 26 times. If 
it has not, the routine is exited in a step 534. If it 
has, both of the field effect transistors 398 and 372 are 
switched on to connect all of the capacitors to ground to 
discharge the capacitors and the routine is exited. 

As shown in FIGS* 7A and 7B, when the timer 
interrupt occurs as in step 324, control is transferred to 
a step 550 shown in FIG. 7A wherein a test is made to 
determine whether a 2 millisecond timer has expired. If it 
has not, control is transferred to a step 552 determining 
whether a 500 millisecond timer has expired. If the 
500 millisecond timer has expired, control is transferred 
to a step 554 testing whether power has been switched on 
through the relay logic 104 to the electric motor 106. If 
the motor has been switched on, control is transferred to 
a step 556 testing whether the motor is stalled, as 
indicated by the motor power having been switched on and by 
the fact that pulses are not coming through on the line 112 
from the tachometer 110. In the event that the motor has 
stalled, control is transferred to a step J58. In the step 
558 the existing motor temperature indication, as stored in 
one of the registers of the microcontroller 84, has added 
to it a constant which is related to a motor characteristic 
which is added in when the motor is indicated to be 
stalled. In the event that the response to the step 556 is 
in the negative, indicating that the motor is not stalled, 
control is transferred to a step 560 wherein the motor 
temperature is updated by adding a running motor constant 
to the motor temperature. In the event that the response 
to the test in step 554 is in the negative, indicating that 



motor power is not on and that heat is leaking out of the 
motor so that- the temperature will be dropping, the new 
motor temperature is assigned as being equal to the old 
motor temperature, less the quantity of the old motor 
temperature, minus the ambient temperature measured from 
the RTD probe 120, the whole difference multiplied by a 
thermal decay fraction which is a number. 

All of steps 558, 560 and 562 exit to a step 564 
which test as to whether a 15 minute timer has timed out. 
If the timer has timed out, control is transferred to a 
step 56 6 causing the current, or updated motor temperature, 
to be stored in a non-volatile memory 88. If the 15 minute 
timer has not been timed out, control is transferred to a 
step 510, as shown in FIG. 7B, Step 566 also exits to step 
568. A test is made in the step 568 to determine whether 
a obstacle detector interrupt has come in via step 32 6 
causing the obstacle detector timer to have been cleared. 
If it has not, the period will be greater than 12 milli- 
seconds, indicating that the obstacle detector beam has 
been blocked. If the obstacle detector beam, in fact, has 
been blocked, control is transferred to a step 570 to set 
the obstacle detector flag. 

In the event that the response to step 568 is in 
the negative, the obstacle detector flag is cleared in the 
step 572 and control is transferred to a step 574. All 
operational timers, including radio timers and the like are 
incremented and the routine is exited. 

In the event that the 2 millisecond timer tested 
for in the step 550 has expired, control is transferred to 
a step 576 which calls a motor operation routine. Follow- 
ing execution of the motor operation routine, control is 
transferred to the step 552. When the motor operation 
routine is called, as shown in FIG. 8A, a test is made in 
a step 580 to determine the status of the motor operation 
state variable which may indicate that the up limit has 
been reached. If the up limit or the down limit have been 
reached, the motor is causing the door to travel up or 
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down, the door has stopped in mid- travel or an auto- reverse 
delay indicating that the motor has stopped in mid- travel 
and will be switching into up travel shortly. In the event 
that there is an auto- reverse delay, control is transferred 
to a step 582, when a test is made for a command from one 
of the radio transmitters or from the wall control unit 
and, if so, the state of the motor is set indicating that 
the motor has stopped in mid- travel. Control is then 
transferred to a step 584 in which 0.50 second timer is 
tested to determine whether it has expired. If it has, the 
state is set to the up travel state following which the 
routine is exited in the step 586. In the event that the 
operation state is in the up travel state, as tested for in 
step 580, control is transferred to a step 588 testing for 
a command from a radio or wall control and if the command 
is received, the motor operational state is changed to stopi 
in mid- travel. Control is transferred to a step 590. If 
the force period indicated is longer than that stored in an 
up array location, indicated by the position of the motor. 
The state of the door is indicated as stopped in mid- 
travel. Control is then transferred to a step 592 testing 
whether the current position of the door is at the up 
limit, then the state of the door is set as being at the up 
limit and control is transferred to a step 594 causing the 
routine to be exited, as shown in FIG. 8B. 

In the event: that the operational state tested 
for in the step 580 is indicated to be at the up limif , 
control is transferred to a step 596 which tests for a 
command from the radio or wall control unit and a test is 
made to determine whether the motor temperature is below a 
set point for the down travel motor temperature threshold. 
The state is set as being a down travel state. If the 
temperature value exceeds the threshold or set point 
temperature value, an output diagnostic flag is set for 
providing an output indication in another routine. Control 
is then transferred to a step 59 8, causing the routine to 
be exited. In the event that the down travel limit has 
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been reached, control is transferred to a step 600 testing 
for whether a command has come in from the radio or wall 
control and, if it has, the state is set as auto- reverse 
and the auto- reverse timer is cleared. Control is then 
transferred to a step 602 testing whether the force period, 
as indicated, is longer than the force period stored in the 
down travel array for the current position of the door. 
Auto- reverse is then entered at step 582 on a later 
iteration of the routine. Control is transferred to a step 
604 to test whether the position of the door is at the down 
limit position and the pass point detector has already 
indicated that the door has swept the passed the pass 
point, the state is set as a down limit state and control 
is transferred to a step 606 testing for whether the door 
position is at the down limit position and testing for 
whether the pass point has been detected. If the pass 
point has not been detected, the motor operational state is 
set to auto- reverse , causing auto-reverse to be entered in 
a later routine and control is transferred to a step 608, 
exiting the main routine. 

In the event that the block 580 indicates that 
the door is at the down limit, control is transferred to a 
step 610, testing for a command from the radio or wall 
control and testing the current motor temperature. If the 
current motor temperature is below the up travel motor 
temperature threshold, then the motor state variable is set 
as equal to up travel. If the temperature is above the 
threshold or set point temperature, a diagnostic code flag 
is then set for later diagnostic output and control is 
transferred to a return step 612. In the event that the 
motor operational state is indicated as being stopped in 
mid- travel, control is transferred to a step 614 which 
tests for a radio or wall control command and tests the 
motor temperature value to determine whether it is above or 
below a down travel motor temperature threshold. If the 
motor temperature is above the travel threshold, then the 



door is left stopped in mid- travel and the routine is 
returned from in step 616. 

In the event that the learn switch has been 
activated as tested for in step 316 and the command switch 
is being held down as indicated by the positive result from 
the step 318, the learn limit cycle is entered in step 320 
and transfers control to a step 630, as shown in FIG. 6A, 
in step 630, the maximum force is set to a minimum value 
from which it can later be incremented, if necessary. The 
motor up and motor down controllers in the relay logic 104 
are disabled. The relay logic 104 includes an NPN 
transistor 700 coupled to line 76 to receive 24 to 28 volts 
therefrom via a coil 702 of a relay 704 having relay 
contacts 706. A transistor 710 coupled to the micro- 
controller is also coupled to line 76 via a relay coil 714 
and together comprise an up relay 718 which is connected 
via a lead 720 to the electric motor 106. A down 
transistor 730 is coupled via a coil 732 to the power 
supply 76. The down relay 732 has an armature 734 
associated with it and is connected to the motor to drive 
it down. Respective diodes 740 and 742 are connected 
across coils 714 and 732 to provide protection when the 
transistors 710 and 730 are switched off. In the step 632, 
both the transistors 710 and 730 are switched off, inter- 
rupting either up motor power or down motor power to the 
electric motor 106 and the microcontroller delays for 
0.50 second. Control is then transferred to a step 634, 
causing the relay 704 to be switched on, delivering power 
to an electric light or worklight 750 associated with the 
head unit. The up motor relay 716 is switched on. A 
1 second timer is also started which inhibits testing of 
force limits due to the inertia of the door as it begins 
moving. Control is then transferred to a step 636, testing 
for whether the 1 second timer has timed out and testing 
for whether the force period is longer than the force limit 
setting. If both conditions have occurred, control is 
transferred to a step 640 as shown in FIG. 6B. If either 



the 1 second timer has not timed out or the 'force period is 
not longer than the force limit setting, control is 
transferred to a step 638 which tests whether the command 
switch is still being held down. . If it is, control is 
transferred back to step 63 6. If it is not, control is 
transferred to the step 640. In step 640, both the up 
transistor 710 and the down transistor 730 are causing both 
the up motor and down motor command from the relay logic to 
be interrupted and a delay of 0.50 second is taken and the 
position counter is cleared. Control is then transferred 
to a step 640 in which the transistor 730 is commanded to 
switch on, starting the motor moving down and the 1 second 
force ignore timer is started running. A test is made in 
a step 642 to determine whether the command switch has been 
activated again. If it has, the force limit setting is 
increased in a step 644 following which control is then 
transferred back to the step 632, If the command switch is 
not being held down, control is then transferred to a step 
646, testing whether the 1 second force ignore timer has 
timed out. The last 32 rpm pulses indicative of the force 
are ignored and a force period from the previous pulse is 
accepted as the down force. Control is then transferred to 
a step 648 and a test is made to determine whether the 
movable barrier is at the pass point as indicated by the 
pass point detector 49 interacting with the optical 
detector 46. Control is then transferred to a step 650. 
The position counter is complemented and the complemented 
value is stored as the up limit following which the 
position counter is cleared and a pass point flag is set. 
Control is then transferred back to the step 642. In the 
event that the result of the test in step 648 is negative, 
control is transferred to a step 652 which tests whether 
the 1 second force delay timer has expired and whether the 
force period is greater than the force limit setting, 
indicating that the force has exceeded. If both of those 
conditions have occurred, control is transferred to a step 
654 which tests whether the pass point flag has been set. 



If it has not been set, control is transferred to a step 
656, wherein the position counter is complemented and the 
complemented value is saved as the up limit and the 
position counter is cleared. In the event that the pass 
point flag has been set, control is transferred to a step 
658. In the event that the test in step 652 has been, 
negative, control is transferred to a step 660 which tests 
the value of the obstacle reverse flag. If the obstacle 
reverse flag has not been set, control is transferred to 
the step 642 shown on FIG. 6B. If the flag has been set, 
control is transferred to the step 654. 

In a step 658, both transistors 710 and 730 are 
switched off interrupting up and down power from the relays 
to the electric motor 106 and halting the motor and the 
microcontroller then delays for 0.50 second. Control is 
then transferred to a step 660. In step 660, the 
transistor 710 is switched on switching on the up relay 
causing the motor to be turned to drive the door upward and 
the 1 second force ignore timer is started. Control is 
transferred to a decision step 662 testing for whether the 
command switch is sec. If the command switch is set, 
control is transferred back to the step 664 causing the 
force limit setting to be increased, following which 
control is transferred to the step 632, interrupting the 
motor outputs. If the command switch has not been set, 
control is transferred to the step 664 causing the maximum 
force irom the 3 3rd previous reading to be saved as the up 
force, following which control is transferred to a decision 
block 666 which tests for whether the 1 second force ignore 
timer has expired and whether the force period is longer 
than the force limit setting. If both conditions are true, 
control is transferred to a step 668. If not, control is 
transferred to a step 670 which tests for whether the door 
position is at the up limit. If the door position is at 
the up limit, control is transferred to the step 668, 
switching off both of the motor outputs to halt the door 
and delaying for 0.50 second. If the position tested in 



m 
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step 670 is not at the upper limit, control is transferred 
back to the step 662. Following step 668 , control is 
transferred to the step 676 during which the command switch 
is tested. If the command switch is set, control is 
5 transferred back to the step 644 causing the force limit 
setting to be increased and ultimately to the step 632 
which switches off the motor outputs and delays for 
0.50 second. If the command switch has not been set, 
control is transferred to a step 678. If the position 
10 counter indicates that the door is presently at a point 
03 where a force transition normally occurs or where force 

settings are to change, and the 1 second force ignore timer 
Q has expired, the 3 3rd previous maximum force is stored and 

mi. the down force array is filled with the last 33 force 

5 

n 15 measurements. Control is then transferred to a step 680 

fll which tests for whether the obstacle detector reverse flag 

LI has been set. If it has not been set, control is 

transferred to a step 682 which tests for whether the 
1 second force ignore timer has expired and whether the 
20 force period is longer than the force limit setting. If 
both those conditions are true, control is transferred to 
a step 684 which tests for the pass point being set. If 
the pass point flag was not set, control is transferred to 
the step 688. In the event that the obstacle reverse flag 
25 is set, control is also transferred to the step 688. In 
the event that the decision block 682 is answered in the 
negative, control :.s transferred back to the step 676. If 
the pass point flag has been set as tested for in the step 
684, control is transferred to the step 686 wherein the 
30 current door position is saved as the down limit position. 
In step 688, both the motor output transistors 710 and 730 
are switched off, interrupting up and down power to the 
motor and a delay occurs for 0.50 second. Control is then 
transferred to the step 690 wherein the up transistor 710 
35 is switched on, causing the up relay to be actuated, 
providing up power to the motor and the 1 second force 
ignore timer begins running. In the step 692, a test is 
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made for whether the command has been set again. If it 
has, control is transferred back to the step 644, as shown 
in FIG. 6B, and following that to the step 632 , as shown in 
FIG. 6A. If the command switch has not been set, control 
5 is transferred to the step 694 which tests for whether the 
position counter indicates that the door is at a sectional 
force transition point or barrier and the 1 second force 
ignore timer has expired. If both those conditions are 
true, the maximum force from the last sectional barrier is 
10 then loaded. Control is then transferred to a decision 
step 696 testing for whether the 1 second force ignore 
timer has timed out and whether the force period is 

□ indicated to be longer than the force period limit setting. 

m 

" , If both of those conditions are true, control is then 
p 15 transferred to a step 698 causing the motor output 

0*: transistors 710 and 73 0 to be switched off and all data is 

%i stored in the non-volatile memory 88 and the routine is 

P exited. In the event that decision is indicated to be in 

ru 

the negative from the decision step 696, control is 

20 transferred to a step 697 which tests whether the door 
position is presently at the up limit position. If it is, 
control is then transferred to the step 698. If it is not, 
control is transferred to the step 692. 

In the event that the rpm interrupt step 322, as 

25 shown in FIG. 5B, is executed, control is then transferred 
to a step 800, as shown in FIG. 9A. In step 800, the time 
duration from the last rpm pulse from the tachometer 110 is 
measured and saved as a force period indication. Control 
is then transferred to a decision block. Control is 

30 transferred to the step 802, in which the operator state 
variable is tested. In the event that the operator state 
variable indicates that the operator is causing the door to 
travel down, the door is at the down limit or the door is 
in the auto- reverse mode, control is transferred to a step 

35 804 causing the door position counter to be incremented. 
In the event that the door operator state indicates that 
the door is travelling upward, has reached its up limit or 



has stopped in mid- travel, control is transferred to a step 
806 which causes the -position counter to be decremented. 
Control is then transferred to a decision step 808 in which 
the pass point pattern testing flag is tested for whether 
it is set. If it is set, control is transferred to a step 
810 which tests a timer to determine whether the maximum 
pattern time allotted by the system has expired. In the 
event that the pass point pattern testing flag is not set, 
control is transferred to a step 812, testing for whether 
the optical obstacle detector flag has been set. If is 
not, the routine is exited in a step 814. If the obstacle 
detector flag has been set, control is transferred to a 
step 816 wherein the pattern testing flag is set and the 
routine is exited. In the event that the maximum pattern 
time has timed out. As tested for in the step 810, control 
is transferred to a step 820 wherein the optical reverse 
flag is set and the routine is exited. In the maximum 
pattern time has not expired, a test is- made in a step 822 
for whether the microcontroller has sensed from the 
obstacle detector that the beam has been blocked open 
within a correct timing sequence indicative of the pass 
point detection system. If it has not, the routine is 
exited in a step 824. If it has, control is transferred to 
a step 826. Testing for whether a window flag has been 
set. As to whether the rough position of the door would 
indicate that the pass point should have been encountered. 

f the window flag has been set, control is transferred to 
a step 828, testing for whether the position is within the 
window flag position. If it has, control is transferred to 
a step 832, causing the position counter to be cleared or 
renormalized or zeroed, setting the window flag and set a 
flag indicating that the pass point has been found, 
following which the routine is exited. In the event that 
the position is now within the window as tested for in step 
828, the obstacle reverse flag is set in a step 830 and the 
routine is exited. In the event that the test made in step 



32 6 indicates that the window flag has not been set, 
control is then transferred directly to the step 832. 

While there has been illustrated and described 
a particular embodiment of the present invention, it will 
be appreciated that numerous changes and modifications will 
occur to those skilled in the art, and it is intended in 
the appended claims to cover all those changes and modifi- 
cations which fall within the true spirit and scope of the 
present invention. 



1 1 = 



Switch state to discharge P3 = 0101 XXXX FOR NEW LAYOUT 



Clear the radio codes from RTO 
or new code flag "output RTO" 

Note temp is temp +40 



change temp adder for running reset change stall temp adder 

Note remove from set any clr switch_data and clr radio_cmd 

add fill before the 101 org 

dnjimit and 2X upjimit commented out 

REMOVED THE UP LIMIT & DOWN LIMIT 
CONDITIONAL OF RPM CAUSING FORCED UP STATE 



45 46 
»••••«* 

44 • 47* 
42*43* 

Jog 
30 31 



4A 4B 



49 * 4C* 



4F 



4E * 



48 



4D 



32 



33 



Position is done from rpm on direction is assumed from the state of the system 
State Assumed Direction 



Autoreverse 
Up_Direction 
Up_Position 
Reset 

Dn_Direction 

DnPosition 

Stop 



Down 
Up 
Up 
Up 

Down 
Down 
Up 



The position counter is zeroed at the end of the patterned IR interruption 
in the down direction and increases 
from there to the max position which is the down limit 
the patterned position is from the bottom of the door having a 3/4 inch bar, 
a 3/4 inch space then another 3/4 inch bar 



; since the gdo is giving 30 pulses for ever rotation of the upper sproket we have 
; 6 touth => 20 rpm pulses 
; 8 touth => 15 rpm pulses 
;10 toulh => 12 rpm pulses 

;The set up will be done from the program mode being set and the wall control being activated 
; the door will travel up first then down and reverses off a .5 inch obstruction 
; at the reversal point the position number is the max position 
; Startup shall be in the up direction 



RS 232 is done from the wall control baud is 1 200 



Secondary state machine for learning 

42 Stop All Travel 

43 Delay .5 seconds 

44 Set up direction 

45 At up limit 

46 Delay .5 second 

47 Down travel 

48 Arev 

49 Up travel 
4A At up limit 

4B Delay .5 seconds 
4C Down travel 
4D Arev 
4E Up travel 
4F At up limit 
else clear 



NON-VOL MEMORY MAP 



00 


AO 


01 


AO 


02 


A1 


03 


A1 


04 


A2 


05 


A2 


06 


A3 


07 


A3 


08 


A4 


09 


A4 


OA 


A5 


0B 


A5 


OC 


A5 


0D 


A6 


0E 


A7 


OF 


A7 


10 


A8 


11 


A8 


12 


A9 



13 AS 

14 A1C 

15 A10 

16 A11 

17 A11 

18 B 

19 B 
1A C 
1B C 

1C CYCLE COUNTER 1ST 16 BITS 

1D CYCLE COUNTER 2ND 16 BITS 

1E VACATION FL^G 

Vacation Flag , Last Operation 
0000 ~ XXXX in vacation 

1111 XXXX out of vacation 

1F A MEMORY ADDRESS LAST WRITTEN 

Max speed 1800 RPM => 150 pulses / sec * 27 seconds => 4050 pulses max => 15 groups 



20 


Up Force 1 


0000-EFFF 


21 


Up Force 2 


FFFF-FF00 


22 


Up Force 3 


FEFF-FE00 


23 


Up Force 4 


FDFF-FD00 


24 


Up Force 5 


FCFF-FC00 


25 


Up Force 6 


FBFF-FB00 


26 


Up Force 7 


FAFF-FA00 


27 


Up Force 8 


F9FF-F900 


28 


Up Force 9 


F8FF-F800 


29 


Up Force 1 0 


F7FF-F700 


2A 


Up Force 1 1 


F6FF-F600 


2B 


Up Force 1 2 


F5FF-F500 


2C 


Up Force 1 3 


F4FF-F400 


2D 


Up Force 14 


F3FF-F300 


2E 


Temperature of motor 


2F 


Up Limit setting 


30 


Down Force 1 


0000-EFFF 


31 


Down Force 2 


FFFF-FF00 


32 


Down Force 3 


FEFF-FE00 


33 


Down Force 4 


FDFF-FD0O 


34 


Down Force 5 


FCFF-FC00 


35 


Down Force 6 


FBFF-FB00 


36 


Down Force 7 


FAFF-FA00 


37 


Down Force 8 


F9FF-F900 


38 


Down Force 9 


F8FF-F800 


39 


Down Force 10 F7FF-F700 


3A 


Down Force 1 1 


F6FF-F60Q 


3B 


Down Force 12 


F5FF-F500 


3C 


Down Force 1 3 


F4FF-F400 


3D 


Down Force 14 


F3FF-F300 


3E 


Last operation and reason 


3F 


Down Limit setting 
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RS232 DATA 



INPUT 


OUTPUT 




"0" 30H 


Switches and mode 




001 1XXX0 
0011 XXXV 
0011XX0X 
0011XX1X 
0011 XOXX 
0011X1XX 


Command switch not closed 
Command switch closed 
Light switch not closed 
Light switch closed 
Vacation switch not closed 
Vacation switch closed 


"1" 31H 


System status 






0011XXX0 
0011XXX1 
0011 XXOX 
0011 XXIX 
0011 XOXX 
0011X1XX 


Not in vacation mode 
In vacation mode 
Worklight off 
Worklight on 
No Aobs Errors 
Aobs errors 


"2" 32H 


RPM period . 




"3' 33H 


0011XXX0 
0011XXX1 
0011 XXOX 
0011XX1X 
OO11X0XX 
0011X1XX 


Learn switch not closed 
Learn switch closed 
Not in learn mode 
In learn mode 
Window not active 
Window active 



"4" 34 H Radio memory codes Page 00 

32 BYTES 



"5" 35H Radio memory codes Page 10 

32 BYTES 

"6" 36H Up force table. Up limit, and motor temp. 

"7" 37H Down force table, down limit, and last operation 

m 8 m 38H MEMORY TEST AND ERASE ALL!! 

00 OK 
FF ERROR 

"9* 39H Set program mode 

"A" 41 H Present position of travel 

Position = First byte - 256 + second byte 

"B" 42H Down limit position 

Down limit = First byte * 256 + second byte 



A -4 



"C" 43H Up limit position 

Up limit = First byte * 256 + second byte 

"D* 44H * Max force 

Max force = First byte * 256 + second byte 

"E" 45H Force setting up direction 

Force = FirsT byte * 256 + second byte 

"F* 46H Force setting down direction 

Force = First byte * 256 + second byte 

"G" 47H Window size 

"H" 48H Window active 

"0" off 
*1"on 

T 49H Give a command sets the command debouncer 

for normal command send a "P" then "I" 
for learning limit send "Q9r then a "P" when at up position 

"J" 4AH READ the temperature of the logic board +40C 

"K" 4BH READ the temperature of the motor +40C 

"L" 4CH 9 For normal operation not in learn 

0 Min force 
1 

2 

3 Max forces 

"M" 4DH Vacation switch command 

"N" 4EH Light switch command 

"0-4FH Force adder 

"P" 50H Clear the command debouncer 

"Q" 51 H Set the command debouncer 

"R" 52H Last Radio code received if new else nothing 

"S" 53H Temperature PCB ASCII 

T p 54H Temp motor ASCII Temperature PCB ASCII 

•U"55H Wake up code to set rs232 mode 

Returns the version 

"V" 56H State ASCII 

"0" Autorevers delay 

"1" Traveling in the up direction 

"2" At the up position 



As 





"3" Error 




*4" Traveling in the down direction 




"5* At the down position 




"6" Stopped in mid travel 


"W" 57H 


Reason ASCII 




"0" Command 




i rtaoio commano 




"2" Force 




o rrotector 




"4" Autoreverse delay 




b Limits 




m 6" Early limits 




"7" Timeout 




"8" RPM forcing up 




"9* Cmd held to limits 




"A" B code to the limits 




"B" Over temperature 




"F" No Pass Point 


-X" 58H 


Fault code ASCII 


"Y" 59 H 


Straps ASCII 




00110X00 10 tooth 




00110X01 9.5 tooth 




00110X10 6 tooth 




00110X11 8 tooth 




001 100XX Thermal protector off 




001 1 01 XX Thermal protector on 


m T 5AH 


Fixed table window off 


Rs232 learn limits 


output "Q9P when at up limit position "P" 


DIAG 


\ 1) AOBS shorted 


; 2) AOBS open / miss aligned 


; 3) Protector intermittenent 


; 4) Over temp 




; 5) Memory bad 


; 6) No RPM in the first second 


; 7) RPM forced a reverse 


\ DOG 2 



DOG 2 IS A SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL "MAINLOOP" 

IS NOT REACHED WITHIN A 3 SECOND 



Conditions 



Yes 

No 

E21 

DownToLimits 

TempMeasureFlag 

ForceTempCompFlag 

ThermalProtectorFlaq 

P5BlockFlag 

AOBSBypass 

PassProtector 

RTD 



.equ 


1h 


.equ 


Oh 


.equ 


Yes 


.equ 


No 


.equ 


Yes 


.equ 


Yes 


.equ 


Yes 


: equ 


No 


.equ 


No 


.equ 


Yes 


.equ 


Yes 



; E21 or C33 8K 

; command held bypass 

; else set temperature to 85C 

; else set force to .5mS adder 

; else skip test for motor temperature 

; need .5 inch block 

; Protector not bypassed from cmd of B 
; is the pass point the protector or 
; the switch pass point 
; is the thermal device a RTD 



EQUATE STATEMENTS 



MINAR equ 7D ; min # rpm pulse for interruption 

MAXAR .equ 150d ; max # rpm pulse for pass point 

UpDownTime .equ 03d ; 



distance verses tooth 

Pulses / Inch = Pulses / Motor rev * Motor rev / Shaft rev * Shaft rev / Teeth * Teeth / Inch 



; for 6 tooth = 


5 * 


16 * 


1/6*2 


= 26. .666 




; for 8 teeth = 


5* 


16 * 


1/8 * 2 


= 20 




;for 9.5 tooth = 


5 * 


16 * 


1/9.5 * 


2 = 16.84 




; for 8 teeth = 


5* 


16 • 


1/10 * 2 = 16 




L10Hi 






.equ 


OOh 


; 10 tooth 


LIOLo 






.equ 


8D 




L9P5Hi 






.equ 


OOH 


; 9.5 tooth 


L9P5LO 






.equ 


9D 




L8Hi 






.equ 


OOh 


; 8 tooth 


L8Lo 






.equ 


10D 




L6Hi 






.equ 


OOh 


; 6 tooth 


LoLo 






.equ 


13D 
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TempRunlncHi 
TempRunlncLo 

TempStalllncHi 
1 TempStalllncLo 

T27Adder 

UpSetMaxTemp 
DnSetMaxTemp 
Version 

check_sum_value 
TIMER_0 
TIMER_0_EN 
TIMER_1_EN 

MOTOR_HI 

MOTOR_LO 

LIGHT 

LIGHT_ON 

MOTOR_UP 

MOTOR_DN 

DNJJMIT 

UPJJMIT 

DIS_SW 

CDIS_SW 

SWITCHES 

CHARGE_SW 

CCHARGE_SW 

COMPARATORS 

DOWN_COMP 

UP_COMP 

P01MJNIT 

P2MJNIIT 

P3MJNIT 

P01SJNIT 

P2SJNIT 

P3S IN IT 



FLASH 
WORKLIGHT 

COM_CHARGE 
WOR K_C H AR G E 
VAC_CHARGE 

COM_D!S 

WORK_DIS 

VACJDIS 

CMD_TEST 
WL TEST 



..equ 


OOh 


.equ 

- 


5Ch 


.equ 


OOh 


.equ 


0B8h 


.equ 


005H 


.equ 


160d. 


.equ 


155d 


.equ 


56H 


.equ 


05AH 


.EOU 


10H 


.EQU 


03H 


.EQU 


OCH 


.EQU 


034H 


.EOU 


OBCH 


.EQU 


OFFH 


.EQU 




.EQU 


01 H 
\j 1 1 i 


.EQU 


04H 


.EQU 




.EQU 




FQl ) 


1 onnnnnnR 

1 UUuUUUUD 


EQU 


H1111111R 

vl II 1 M ID 


.EQU 


01 ooonnnR 

\J 1 UUUUUUD 


.EQU 


001 00000 B 


.EQU 


1 101 1 11 1 B 


.EQU 


30H 


.EQU 


20H 


.EQU 


10H 


.EQU 


01000100B 


.EQU 


11100000B 


.EQU 


00000001 B 


.EQU 


0000001 OB 


.EQU 


1000001 OB 


.EQU 


1O1OOOO0B 



; rate of temperature increase running 
; every second 

; rate of temperature increase stalled 

; every second 

; adder if running when reset 

; max temp to set this state 
; max temp to set this state 
; set the version number 



; set mode p00-p03 out p04-p07in 

; set port3 p30-p33 input DIGITAL mode 



EQU OFFH 

.EQU . 02H 

.EQU 2 

EOU 20 

EQU 80 

EQU 01 

EQU 04 

EQU 24 

EQU 00 

EQU 01 . 



VAC_TEST 
CHARGE 



.EQU 02 
.EQU 03 



AUTO REV 


.EQU 


00H 


UP DIRECTION 


.EQU 


01H 


UP. POSITION 


-EOU 


02H 


DN DIRECTION 


.EQU 


04 H 


DN POSITION 


.EOU 


05H 


STOP 


.EOU 


06H 


CMD SW 


.EOU 


01H 


LIGHT SW 


.EOU 


02H 


VAC SW 


.EQU 


04 H 



PERIODS 



AUTO HI 




.EOU 


00H 


AUTO LO 




.EOU 


0F4H 


FLASH HI 




.EOU 


00H 


FLASH LO 




.EQU 


07AH 


SET TIME 


HI 


.EOU 


02H 


SET TIME 


LO 


.EOU . 


02H 


SET TIME 


PRE 


.EQU 


OFBH 


ONE_SEC 




.EQU 


0F4H 


SwPeriod 




.equ 


150d 


RsPeriod 




.equ 


104d 



CMD MAKE 


.EQU 


8D 


CMD BREAK 


.EQU 


(255D-8D; 


LIGHT MAKE 


.EQU 


8D 


LIGHT BREAK 


.EQU 


(255D-8D) 


VAC MAKE OUT 


.EQU 


4D 


VAC BREAK OUT 


.EQU 


(255D-4D) 


VAC MAKE IN 


.EQU 


2D 


VAC_BREAKJN 


.EQU 


(255D-2D) 


VAC DEL 


.EQU 


8D 


CMD DEL EX 


.EQU 


4D 


VAC DEL EX 


.EQU 


SOD 



; auto rev timer .5 sec 

; .25 sec flash 

;4.5 MIN 
;4.5 MIN 
; 4.5 MIN 

; WITH A/2 IN FRONT 
; switch period = 300uS 
; RS232 period 2400 Baud 208uS 



; cycle count *10mS 
; cycle count *1 ImS 
; cycle count *100mS 



ADDRESSES 



AddressAO 
AddressAI 
AddressA2 
AddressA3 
AddressA4 
AddressAS 



.equ 00H 

.equ 02H 

.equ 04H 

.equ 06H 

.equ 08H 

.equ 0AH 



/?-9 



AddressAG 

AddressAT 

AddressAS 

AddressAS 

AddressAlO 

AddressAl 1 

AddressB 

AddressC 

A'ddressCounler 

AddressVacalion 

AddressApointer 



AddressUpLimit 
AddressDownForce 
AddressLastOperat 
AddressDownLimit 



.equ 


OCH 


.equ 


OEH 


.equ 


10H 


.equ 


12H 


.equ 


14H 


.equ 


16H 


.equ 


18H 


.equ 


1 AH 


.equ 


1CH 


.equ 


1 EH 


.equ 


1FH 


.equ 


20H 


.equ 


2EH 


.equ 


2FH 


e .equ 


30H 


.equ 


3EH 


.equ. 


3FH 



.IF 

ALL_ON_IMR 

RadioOfflMR 

RETURNIMR 

.ELSE 
ALL_ON_IMR 
RadioOfflMR 
RETURN_IMR 

.ENDIF 



E21 



.equ 
.equ 
.equ 

.equ 
.equ 
.equ 



00111111b 
00111100B 
00111111b 

00111101b 
00111100B 
00111101b 



; turn on int for timers rpm auxobs 
; turn. radio off durring autolearn cycle 
; return on the IMR 

; turn on int for timers rpm auxobs 
; turn radio off durring autolearn cycle 
; return on the IMR 



GLOBAL REGISTERS 



STATUS 


.EQU 


04H 


STATE 


.EQU 


05H 


FORCE PRE 


.EQU 


06H 


FORCE IGNORE 


.EQU 


07H 


AUTO DELAY HI 


.EQU 


08H 


AUTO DELAY LO 


.EQU 


09H 


AUTO DELAY 


.EQU 


08H 


MOTOR TIMER HI 


.EQU 


0AH 


MOTOR TIMER LO 


.EQU 


0BH 


MOTOR TIMER 


.EQU 


0AH 


LIGHT TIMER HI 


.EQU 


OCH 


LIGHT TIMER LO 


.EQU 


0DH 


LIGHT_TIMER 


.EQU 


OCH 


FourDFlag 


.equ 


OEH 


PREJJGHT 


.EQU 


0FH 


TIMER_GROUP 


.EQU 


10H 


rsrto 


.equ 


r5 


obs__flag 


.equ 


r6 


rs232do 


.equ 


r7 


rs232di 


.equ 


r8 


rscommand 


.equ 


r9 



state register 



rc tcmr~ Ki 
1 b Ite (Hp ill 


.6CJU 


n u 




rc to m r-, 1 r\ 
i o iri I iu 




r1 1 

r I i 




rc ton*i' i 


.equ 


rr 1 u 






.equ 


n u 




r5^.o*iQicouni 


.equ. 


n i 






.equ 


n £. 




rc C> *3 Q trie 1 o v / 


.equ 


n 6 




i otO^paQe 


.equ 


ri o 






. tZKJU 


Til ir D 


_bnUUr+ 0 


V/Appi ACM 


.tuu 


T | » irn 

I IMbn_ 


JjaROUP+1 




.tCJU 


I IMbH_ 


_GROUP+2 


rnUL 1 




I IMtn_ 


_GHUUP-r3 






I IMbh 


GKOUP+4 


RsRto 


.EQU 


timer" 


"GROUP+5 


OBS FLAG 


.EQU 


TIMER 


GROUPt-6 


RS232DO 


.EQU 


TIMER 


GROUP+7 


RS232DI 


.EQU 


TIMER 


GROUP+8 


RSCOMMAND 


.EQU 


timer" 


GROUP+9 


RS232DOCOUNT 


.EQU 


TIMER 


GROUP+10 


RS232DICOUNT 


.EQU 


TIMER 


GROUP+11 


RS2320DELAY 


.EQU 


TIMER 


GROUP+12 


RS232IDELAY 


.EQU 


TIMER 


GROUP+13 


Jog 


.EQU 


TIMER 


GROUP+14 


RS232PAGE 


.EQU 


TIMER 


GROUP+15 



; LEARN EE GROUP FOR LOOPS ECT 



LEARNEE GRP 


.equ 


20H 






RADIO CMD 


.equ 


LEARNEE 


GRP 




RSSTART 


.equ 


LEARNEE 


GRP+1 




TEMP 


equ 


LEARNEE 


GRP+2 




LEARNDB 


.equ 


LEARNEE 


GRP+3 


learn debouncer 


LEARNT 


.equ 


LEARNEE 


GRP+4 


learn timer 


ERASET 


.equ 


LEARNEE 


GRP+5 


erase timer 


MTEMPH 


.equ 


LEARNEE 


GRP-r6 


memory temp 


MTEMPL 


.equ 


LEARNEE 


GRP+7 


memory temp 


MTEMP 


.equ 


LEARNEE 


GRP+8 


memory temp 


SERIAL 


.equ 


LEARNEE 


GRP+9 ; 


serial data to and from nonvol memory 


ADDRESS 


.equ 


LEARNEE 


GRP+10 


address for the serial nonvol memory 


TOEXT 


.equ 


LEARNEE 


GRP+11 


timer 0 extend dec every TO int 


RSCCOUNT 


.equ 


LEARNEE 


GRP+12 




T125MS 


.equ 


LEARNEE 


_GRP+13 


125mS counter 


OnePass 


.equ 


LEARNEE 


GRP-f14 




SKIPRADIO 


.equ 


LEARNEE. 


GRP+15 


flag to skip the radio read and write if 










learn or vacation are talking to it 


temp 


.equ 


r2 




• 


learndb 


.equ 


r3 




learn debouncer 


learnt 


.equ 


r4 




learn timer 


eraset 


.equ 


r5 




erase timer 


mtemph 


.equ 


r6 




memory temp 


mtempl 


.equ 


r7 


; memory temp 


mtemp 


.equ 


rS 




memory temp 


serial 


.equ 


r9 




serial data to and from nonvol memory 



/-// 



address 
tOext 
1125ms 
skipradio 



.equ 
.equ 
.equ 
.equ 



no 

r11 
r13 
r15 



; address tor the serial nonvot memor, 
; timer 0 extend dec every TO int 
; l25mS counter 

; flag to skip the radio read and write if 
; learn or vacation are talking to it 



RPM_GROUP 


.EQU 


30H 




oiaUAIcaoUl I 




rO 




oid^rvi lay 




rl 

1 1 




r pi I l__lt?iTip_r II 




rO 
\£. 




rpm_iernp_io 


.equ 


ro 




rpm_iemp 


.equ 


rrO 




rpm _past_hi 


.equ 


rA 

Xh 




rpm__past_io 


.equ 


ro 




rpm_past 


.equ 


XX H 




rpm_period_hi 


.equ 


ro 




rpm_period_lo 


.equ 


XI 




rpm_period 


.equ 


rro 




rpm_count 


.equ 


ro 




rpm_diff_hi 


.equ 


ry 




rpm_am_lo 


.equ 


rlO 




rpri i_^p<3bi_ni 




r1 1 




rpm_2past_!o 


.equ 


r12 




rpm_time_out 


.equ 


M5 




STACKREASON 


.EQU 


RPM 


GROUP+0 


STACKFLAG 


.EQU 


RPM 


GROUP+1 


RPM TEMP HI 


.EQU 


RPM 


GROUP+2 


RPM TEMP LO 


.EQU 


RPM 


GROUP+3 


RPM PAST HI 


.EQU 


RPM 


GROUP+4 


RPM PAST LO 


.EQU 


RPM 


GROUP+5 


RPM PERIOD HI 


.EQU 


RPM 


GROUP+6 


RPM PERIOD LO 


.EQU 


RPM 


GROUP+7 


RPM COUNT 


.EQU 


RPM 


GROUP+8 


RPM DIFF HI 


.EQU 


RPM 


GROUP+9 


RPM DIFF LO 


.EQU 


RPM 


GROUP+10 


RPM 2PAST HI 


.EQU 


RPM 


GROUP+11 


RPM__2PAST_LO 


.EQU 


RPM 


GROUP+12 


MinTimer 


.EQU 


RPM 


GROUP+13 


TDifference 


.EQU 


RPM 


GROUP+14 


RPM TIME OUT 


.EQU 


RPM 


GROUP+15 



; RADIO GROUP 



RADlO_GRP 

RTEMP 

RTEMPH 

F.TEMPL 

RTIMEAH 



.equ 40H 

.equ RADIO_GRP 

.equ RADIOJ3RP+1 

.equ RADIO_GRPi-2 

.equ RADiO_GRP+ 3 



radio temp storage 
radio temp storage high 
radio temp storage low 
radio active time high byte 



A- & 



RTIMEAL 


.equ 


RADIOJ3RP+4 


RTIMEIH 


.equ. 


RADIO GRP+5 


RTIMEIL 


.equ 


RADIOJ3RP+6 


RTIMEPH 


.equ 


RADIO_GRP+7 


RTIMEPL 


.equ 


RADIO GRP+8 


RADI03H 


.equ 


RADIO GRP+9 


RADI03L 


.equ 


RADIOJ3RP+10 


RADI01 H 


.equ 


RADIO_GRP+11 


RADI01L 


.equ 


RADIO_GRP+12 


RADIOC 


.equ 


RADIO_GRP+13 


RTIMEDH 


.equ 


RADIO GRP+14 


RTIMEDL 


.equ 


RADIO GRP+15 


rtemp 


.equ 


rO 


rtemph 


.eau 


rl 


rtempl 


.eau 


r2 


rtimeah 


.equ 


r3 


rtimeal 


.equ 


r4 


rtimeih 


.equ 


r5 


rtimeil 


.equ 


r6 


rtimeph 


.equ 


r7 


rtimep! 


.equ 


r8 


radio3h 


.eau 


r9 


radio3l 


.eau 
w *i ^ 


no 


radiolh 


.equ 


r1 1 


radio 11 


.equ 


r12 


radioc 


.eau 


r13 


rtimedh 


.equ 


r14 


rtimedl 


equ 


r15 


ForceTablel 


.eau 


50H 


ForceOHi 


.equ 


ForceTable 1 +0 


ForceOLo 


.equ 


ForceTablel + 1 


Force 1 Hi 


.equ 


ForceTablel +2 


Force 1Lo 


.equ 


ForceTablel +3 


Force2Hi 


.equ 


ForceTablel +4 


Force2Lo 


.equ 


ForceTablel +5 


Force3Hi 


.equ 


ForceTablel +6 


Force3Lo 


.equ 


ForceTablel +7 


Force4Hi 


.equ 


ForceTablel +8 


Force4Lo 


.equ 


ForceTablel +9 


f orceSHi 


.equ 


ForoeTabiel + 10 


rorceSLo 


.equ 


ForceTablel +1 1 


Force6Hi 


.equ 


ForceTablel +12 


Force6Lo 


.equ 


ForceTablel +13 


Force7Hi 


.equ 


ForceTablel +14 


Force7Lo 


.equ 


ForceTablel +15 


ForceTable2 


.equ 


60H 


Force8Hi 


.equ 


ForceTable2+0 


Force8Lo 


.equ 


ForceTable2-r1 


Force9Hi 


.equ 


ForceTable2+2 


Force9Lo 


.equ 


ForceTable2+3 


Force 10Hi 


.equ 


ForceTable2+4 



radio active time low byte 
radio inactive time high byte 
radio inactive time low byte 
radio past time high byte 
radio past time low byte 
3 mS code storage high byte 
3 mS code storage low byte 
1 mS code storage high byte 
1 mS code storage low byte 
radio word count 

radio difference of active and inactive 

radio difference 

radio temp storage 

radio temp storage high 

radio temp storage low 

radio active time high byte 

radio active time low byte 

radio inactive time high byte 

radio inactive time low byte 

radio past. time high byte 

radio past time low byte 

3 mS code storage high byte 

3 mS code storage low byte 

1 mS code storage high byte 

1 mS code storage low byte 

radio word count 

radio difference of active and inactive 
radio difference 



force at the bottom of the door 



force at the worst case lop 



force address pointer 



force at the bottom of the door 



ForcelOLo 

Force 1 1 Hi 

Force 1 1 Lo 

Force 12Hi 

Force12Lo 

Force13Hi 

Force 13Lo 

Force14Hi 

Force14Lo 

ForceTemp 

ForceAddress 



.equ ForceTable2^5 

.equ ForceTable2+6 

.equ ForceTable2+7 

.equ ForceTable2+8 

.equ ForceTable2+9 

.equ ForceTable2-r 1 0 

.equ ForceTable2+1 1 

.equ ForceTable2+12 

.equ ForceTable2+1 3 

.equ ForceTable2+14 

.equ ForceTable2+1 5 



force at the worst case top 



force address pointer 



forcetemp 
forceaddress 



.equ 
.equ 



r14 
r15 



FORCE_GRP 

CHECK_GRP 

check_sum 

rom_data 

test_adr_hi 

test_adr_lo 

test_adr 

forces 

up_force_hi 

upjorcejo 

dn_force_hi 

dn_force_lo 

position_hi 

positionjo 

lac 

CHECK_SUM 
ROM_DATA 

FORCES 



.equ 70H 

.equ 70H 

.equ rO 

.equ r1 

.equ r2 

.equ r3 

.equ rr2 

.equ rO 

.equ r1 

.equ r2 

.equ r-3 

.equ r4 

.equ M 1 

.equ r12 

.equ r14 

.equ CHECK_GRP+0 

.equ CHECK_GRP+1 

.equ FORCE_GRP 



; check sum pointer 



; check sum reg for por 
; data read 

force max during setting 
3 = MAX force 10mS 
2 = HI force 9 mS 
1 = MID force 8,25 mS 
else = LOW force 7.75 mS 



UP FORCE HI 


.equ 


FORCE 


GRP+1 


UP FORCE LO 


.equ 


FORCE 


GRP+2 


DN FORCE HI 


.equ 


FORCE 


GRP+3 


DN FORCE LO 


.equ 


FORCE 


GRP+4 


AOBSF 


.equ 


FORCE 


GRP+5 


FAULTCODE 


.equ 


FORCE 


GRP+6 


AOBSTEST 


.equ 


FORCE 


GRP+7 


FAULTTIME 


.equ 


FORCE 


GRP+8 


RPM_ACOUNT 


.equ 


FORCE 


GRP+9 


UpDown 


.equ 


FORCE 


GRPrlO 



up to down direction change timer 



POSITION HI 






onrt I I 


POSITION i O 


cni i 

■ CL^U 




on P-r 1 *_ 


P5L JTD 

r o ^i i L-/ 


.equ 


rUnt't 




i a r 


.equ 




P* D D t/1 

bnrtl 4 


aorc; fi Ar^ 


.equ 


rUnl/t_ 


P^ D D - 1 C 


PRADIO HRP 


oni i 


Qnu 
oun 




SDISABIF 


oni i 

. tTL^ U 


PRADin 
r nnui \j 


_\Jn r -f U 


PRADIO^H 




PRADin 


nop , i 


PRADI03L 


PHI 1 


PRADIO 


nr + t 


PRADI01H 




PRADIO 


r;op / q 
vj nr + j 


PRADI01 L 


.equ 


PRADIO 


vj n i *? 


RTO 


.equ 


PRADIO" 


"GRP+5 


RFLAG 


.equ 


PRADIO" 


GRP+6 


RINFILTER 


.equ 


PRADIO" 


GRP+7 


LIGHT1S 


.equ 


PRADIO 


GRP+8 


DOG2 


.equ 


PRADIO 


GRP+9 


GotSwitch 


.equ 


PRADIO^ 


_GRP+OAH 


PAI II TPI ACZ 


.equ 


DDAHlPi 

r riAUIL^ 


p^ d o .Ann 

bnr+Obn 


MOTDPI 


.equ 


rhAUI(J_ 


p* D D . APU 

_bnr+0OH 


Lion i o 


.equ 


rnAUIU_ 


(jHr+ODH 


DPI AYP 


.equ 


DO A Pv 1 P^ 

r rvAL>lvJ_ 


p* o n . ac u 


WIN PI AH 


.equ 


DDAHlH 


P 4 D D . ACU 

bnr+Orn 




.equ 


AQAI 1 

oyun 




MAY P Ml 
I vi ma r n i 


.equ 


cno p p o 


P^ D D 


MAX F LO 


.equ 


FORCE2 


GRP+1 


P32_MAX_HI 


.equ 


FORCE2 


_GRP-2 


P32 MAX LO 




FOROF? 


\j3 n i to 


AOBSRPM 


.equ 


FORCE2 


GRP+4 


UP LIM HI 


.equ 


FORCE2 


GRP+5 


UP LIM LO 


.equ 


FORCE2 


GRP+6 


DN LIM HI 


.equ 


FORCE2 


GRP+7 


DN LIM LO 


.equ 


FORCE2 


GRP+8 


AOBSB 


.equ 


FORCE2 


GRP+9 


AOBSNB 


.equ 


FORCE2 


GRP+10 


AOBSSTATUS 


.equ 


FORCE2. 


J3RP+11 


AOBSSTATE 


.equ 


FORCE2 


_GRP+12 




limits are changing 
flag for pass point 



system disable timer 

3 mS code storage high byte 

3 mS code storage low byte 

1 mS code storage high byte 

1 mS code storage low byte 

radio time out 

radio flags 

radio input filter 

light timer for 1 second flash 

second watchdog 

found a switch set 

flag for fault blink stops radio blink 

motor time delay 

light state 

for the time delay for command 

flag for the operation of the window 

for the pass point 

0 b skip pass point window 

not 0 do pass point 



; temp storage for the max force reading 

; delayed storage every 32 steps 

; the count of rpm pulses from aobs 

; the up limit count 

; the up limit count 

; the down limit count 

; the down limit count 

; the RPM count of the protector break 

; the RPM count of protector make 

; the protector sta > 00 beam maoe 

; FF beam broken 

; the state of the zero point test 

; 00 = waiting for first block 

; 01 = blocked < 12 counts 

; clear unblocked 

; 02 = waiting for unblocked 

(is blocked > 30) 
; 03 = unblocked < 12 counts 
; clear blocked 

; 04 = waiting for blocked 

(is unblocked > 30) 
; 05 = blocked < 12 counts 
; clear unblocked 

; 06 = waiting for unblocked 

(is blocked > 30) 



PWINDOW 
RsTimtr 



T1 Mirror 



.equ FORCE2_GRP+i 3 
.equ FORCE2_GRPt 1 4 



.equ FORCE2_GRP+15 



07 = zero clear AOBSRPM 
clear AOBSSTATE 
window 

RS232 operation timer 4 S inc till FF 
FF = RS232 off switches operational 
else RS232 on switches 
T1 setting mirror 



DB_GROUP 
SWDATA 
ONEP2 
LAST CMD 



BCODEFLAG 

RPMONES 

RPMCLEAR 

FAREVFLAG 



.EQU OAOH 

.EQU DBJ3ROUP 

.EQU DB_GR0UP+1 

.EQU DB -GROUP+2 



.EQU DBJ3ROUP+3 

.EQU DB_GROUP-r4 

.EQU DBJ3ROUP+5 

.EQU DB GROUP+6 



FLASH 


FU\G 


.EQU 


DB 


GROUP+7 


FL4SH~ 


DELAY HI 


.EQU 


DB 


GROUP+8 


flash" 


DELAY LO . 


.EQU 


DB 


GROUP+9 


FLASH 


DELAY 


.EQU 


DB 


GROUP+8 


FLASH 


COUNTER 


.EQU 


DB 


GROUP+OAH 


REASON 


.EQU 


DB 


GROUP+OBH 



LIGHT_FLAG 
CMD_DEB 
LIGHT_DEB 
VAC DEB 



.EQU DB_GROUP+0CH 

.EQU DBJ3RO.UP+0DH 

.EQU DBJ3ROUP+0EH 

.EQU DB GROUP+OFH 



1.2 SEC TIMER TICK .125 
LAST COMMAND FROM 
= 55 WALL CONTROL 
= 00 RADIO 
= AA RS232 
B CODE FLAG 
77 = b code 

RPM PULSE ONE SECOND DISABLE 
RPM PULSE CLEAR JEST TIMER 
RPM FORCED AREV FLAG 
88H FOR A FORCED REVERSE 



; 00 


COMMAND 


; 10 


RADIO COMMAND 


;20 


FORCE 


; 30 


AUXOBS 


; 40 


AUTOREVERSE TIMEOUT 


; so 


LIMIT 


; 60 


EARLY LIMIT 


;7o 


MOTOR MAX TIME OUT 


;80 


FORCED AREV FROM RPM 


;90 


CLOSED COMMAND HELD 


; AO 


CLOSED WITH RADIO HELD 


; F0 


No pass point 



BACKUP_GRP 
LearnLed 



.equ 0B0H 

.equ BACKUP_GRP-rG 



led control 

00XX XXXX = Led Blink from radio 
01 XX XXXX = Blink From Fault 
10XX XXXX = Learn mode 
XXFF FFFF = off 



RsMode 


.equ 


BACKUP 


GRP+1 


ForceAddHi 


equ 


backup" 


GRP+2 


ForceAddLo 


equ 


backup" 


GRP+3 


ForceAdd 


.equ 


backup" 


GRP+2 


MotorTempHi 


.equ 


backup" 


"GRP+4 


MotorTempLo 


.equ 


backup" 


~GRP+5 


MotorTemp 


.equ 


backup" 


GRP+4 


Temperature 


.equ 


backup" 


GRP+6 


P8Counter 


.equ 


backup" 


GRP+7 


PastTemp 


.equ 


backup 


GRP+8 


BRPM TIME OUT 


.equ 


backup 


_GRP+9 


BFORCE IGNORE 


.equ 


backup" 


_GRP+OAH 


BSTATE 


.equ 


backup" 


_GRP+OBH 


BAUTO DELAY HI 


.equ 


BACKUP 


GRP+OCH 


BAUTO DELAY LO 


.equ 


BACKUP 


GRP+ODH 


BAUTO DELAY 


.equ 


BACKUP 


GRP+OCH 


BCMD DEB 


.equ 


backup" 


GRP+OFH 



; XXNN NNNN count at 3mS rate 

; = 232D it RS232 only set from U code 

: force adder From temperature 



STACKTOP 


.equ 


238 


; start of the stack 


STACKEND 




Uwun 


; end of the stack . . 


RS2320S 


.equ 


00010000B 


• R c ^2'3? ruitnut hit QPt 

, 1 * O^. \Jt- \J\J IpUl Ull OCl 


RS2320C 


.equ 


1 1 101 1 1 1 B 


; RS232 output bit clear 


RS2320P 


.equ 


P3 


; RS232 output port 


RS232IP 


.equ 


P0 


; RS232 input port 


RS232IM 


.equ 


01000000B 


; RS232 mask 


RslnputModeAnd 


.equ 


10101111B 




RslnputModeOr 


.equ 


10100000B 




RsOutputModeAnd 


.equ 


10101111B 




RsOutputModeOr 


.equ 


10100000B 




csh 


.equ 


00010000B 


, chip select high for the 93c46 


csl 


.equ 


11101111B 


chip select low for 93c46 


clockh 


.equ 


00001 000B 


clock high for 93c46 


Clockl 


.equ 


1 1 1 101 11 B 


clock low for 93c46 


doh 


.equ 


000001 00B , 


data out high for 93c43 


dol 


.equ 


1 111 1011 B 


data out low for 93c46 


psmask 


.equ 


01000000B 


mask for the program switch 


csport 


.equ 


P2 


chip select port 


dioport 


.equ 


P2 


data Mo port 


Clkporl • 


.equ 


P2 


clock port 


psporl 


.equ 


P2 


program switch port 


WATCHDOG_GROUP 


.EQU 


0FH 




peon 


.equ 


rO 




smr 


.equ 


r11 




wdtrnr 


.equ 


r15 





WDT 



.macro 
.byte 5fh 
.endm 



FILL 



.macro 
.byte OFFh 
.endm 



TRAP 



TRAP10 



.macro 

JP 

JP 

JP 

JP 

jp 

.endm 

.macro 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

.endm 



starl 
start 
stan 
stan 
stan 



Interrupt Vector Table 



IF E21 



.org OOOOH 

.word RADIOJNT 

.word RADIOJNT 

.word AUXJDBS 

.word RPM 

.word Timerl Int 

.word Timer2lnt 



;IRQO. P3.2 
;IRQ1, P3.3 
;IRQ2, P3.1 
;IRQ3, P3.0 
;IRQ4. TO 
;IRQ5, T1 



.ELSE 



.org 



OOOOH 



.word RADIOJNT 

.word OOOCH 

.word RPM 

.word AUX_OBS 

.word Timerl Int 

.word Timer2lnt 



.ENDIF 



;IRO0. P3.2 
;IR01, P3.3 
;IRQ2. P3.1 
;IRQ3. P3.0 
;IRQ4. TO 
;IRQ5. T1 



A -if 



Q 



□ 

111 



■page 

.org OOOCH 
jp START 



RS232 DATA ROUTINES 



; enter rs232 start with word to output in rs232do 

RS2320START: 

or RS2320P.#RsOutpu1ModeOr 

and RS2320P.#RsOutputModeAnd 

push rp 

srp #TIMERJ3ROUP 

cp rs232odelay,#00H 

jr z,RsReady 

djnz rs232odelay, NORSIN 
RsReady: 

clr RSSTART 

Id rs232odelay,#04 

clr rs232docount 

or RS2320P,#RS2320S 

jr NORSIN 



start jmps to start at location 0101 



set the Output mode 



save the rp 

set the group pointer 

test tor ready 



; one shot 

; set the period 

start with the counter at 0 
set the output 



RS232; 




cp 


RSSTART.#OFFH 




Z.RS2320START 


RS2320UTPUT: 


push 


rp 


srp 


#TIMER_GROUP 


cp 


rs232docount.#11d 


J r 


ult,RS232R 




ugt, InputMode 


and 


RS2320P,#RS2320C 


inc 


rs232docount 


InputMode: 




or 


RS2320P,#RslnputModeOr 


and 


RS2320P.#RslnputModeAnd 


JR 


NORSOUT 


RS232R: 




Id 


rs232dicount.#0F0H 


djnz 


rs232odelay. NORSIN 


inc 


rs232docount 


set 




rrc 


rs232do 



; test for the start flag 



; save the rp 

; set the group pointer 

; test for last 



; clear the output 
; one shot 

set the input mode 



; set a time delay 

; cycle count time delay 

; set the count for the next cycle 

; set the carry flag for stop bits 

; get the data into the carry 



or 
i r 

RS232SET: 
and 

SETTIME: 
id 
V 

NORSOUT: 
RS232INPUT: 



c,RS232SET 

RS2320P,#RS2320S 
SETTIME 

RS2320P,#RS2320C 

rs232odelay,#4d 
NORSIN 



; if the bit is high then set 

; set the output 

; find the delay time 

; clear the output 

; set the data output delay 



cp 


rs232dicount,#0FFH 


jr 


nz, RECEIVING 


tm 


RS232IP #RS2^2IM 


jr 
* 


nz, NORSIN 


clr 


rs232dicount 


Id 


rs232idelay,#2d 


RECEIVING: 




djnz 


rs232idelay, NORSIN 


inc 


rs232dicount 


cp 


rs232dicount.#10d 


V 


z,DIEVEN 


tm 


RS232IP,#RS232IM 


rcf 




i r 


z.SKIPSETTING 


scf 




SKIPSETTING: 




rrc 


rs232di 


Id 


rs232idelay,#4d 




NORSIN 


DIEVEN: 




Id 


rs232dicount.#0FFH 


Id 


rscommand,rs232di 


clr 


RSCCOUNT 


NORSIN: 




pop 




ret 





; test mode 

; if receiving then jump 

; test the incoming data 

; if the line is still idle then skip 

; start at 0 

; set the delay to 1/2 

; skip till delay is up 

; bit counter 

; test for last timeout 

; test the incoming data 
; clear the carry 

; if input bit not set skip setting carry 
; set the carry 

; save the data into the memory 
; set the delay 



; turn off the input till next start 
; save the value 
; clear the counter 

; return the rp 



■org 101H 
REGISTER INITILIZATION 



; start address 



start. 
START: 



di 

.IF E21 

xor P1 ,#00000001 B 
ELSE 



turn off the interrupt for init 
Kick the external dog 



Id RP.#WATCHDOG_GROUP 

Id wdtmr,#00001 1 1 1B 

WDT 

.ENDIF 

clr RP 



; rc dog 100mS 
; kick the dog 

; clear the register pointer 



Internal RAM Test and Reset All RAM = mS 



srp 


#0F0h 


Id 


M.5,#4 


again: 




.IF 


E21 


xor 


P1 ,#00000001 B 


.ELSE 




WDT 




.ENDIF 




Id 


r14,#1 


againl : 




Id 


@r15,M4 


cp 


>14,@r15 


j r 


ne, system error 


rl 


r14 


i r 


nc.write againl 


clr 


@r15 


inc 


r15 - 


cp 


r15,#240 


V 


ult,write_again 



; point to control group use stack 
;r15= pointer (minimum of RAM) 



; Kick the external dog 
; KICK THE DOG 



;write 1,2,4,8,10,20,40,80 
;then compare 



;write RAM(r5)=0 to memory 



; STACK INITILIZATION 
STACK: 



clr 


254 


Id 


255,#238D 


Id 


P0,#P01S INIT 


Id 


P2,#P2S INIT 


Id 


P3,#P3S INIT 


Id 


P01M,#P01M INIT 


Id 


P3M,#P3MJNIT 


Id 


P2M,#(P2MJNIT+0) 



set the start of the stack 
RESET all ports 



set mode p00-p03 out p04-p07in 
set port3 p30-p33 input analog mode 
p34-p37 outputs 
set port 2 mode 



Checksum Test 



CHECKSUMTEST 

srp #CHECK_GRP 

Id test_adr_hi,#0FH 

Id test_adrJo.#0FFH ;maximum address=ftfh 

add_sum: 

.IF E21 

xor Pi ,#00000001 B ; Kick the external dog 



.ELSE 
WDT 
.END1F 
call 
Idc 
add 
decw 

V 
cp 

i r 
j r 

system_error: 
and 
or 

.byte 
system_ok: 

.IF 

xor 

.ELSE 

WDT 

.ENDIF 



PORTINIT 
rom_data.@test_adr 
check_surn,rom_data 
test_adr 
nz.add_sum 

check_sum,#check_sum_value 
system_ok 
z.system_ok 



P3,#00111111B 
P3,#01000000B 
system_error 

256-check_sum value 



E21 

P1 ,#00000001 B 



; KICK THE DOG 

; port initilization 
;read ROM code one by one 
;add it to checksum register 
increment ROM address 

;address=0 ? 

;temp test 

;check final checksum = 00 ? 



; turn off both outputs 
turn on the led 



; Kick the external dog 
; KICK THE DOG 



Id STACKEND,#STACKTOP 
SETSTACKLOOP: 

Id @STACKEND,#01H 
dec STACKEND 
cp STACKEND.#STACKEND 
jr nz. SETSTACKLOOP 



; start at the top of the stack 

; set the value for the stack vector 

; next address 

; test for the last address 

; loop till done 



CLEARDONE: 



Id STATE, #05d 

Id BSTATE,#05d 

Id LIGHT_TIMER_HI,#SET_TIMEJHI 

Id LIGHT_TIMER_LO,#SET_TIME_L< 

Id PRE_UGHT,#SET_TiME_PRE 

Id CMD_DEB,#0FFH 

Id BCMD_DEB.#OFFH 

Id VAC_DEB,#0FFH 

Id LIGHT_DEB,#0FFH 

Id - ERASET,#0FFH 

Id LEARNDB,#OFFH 

Id LEARNT. #0FFH 

Id RTO,#0FFH 

Id RS232DOCOUNT,#01 2d 

Id RPMONES,#244d 



; set the state to DOWN POSITION 
; FORCING UP TRAVEL FIRST STEP 
; set the light period 
; for the 4.5 min timer 

; in case of shorted switches 
; in case of shorted switches 



set the erase timer 
set the learn debouncer 
set the learn timer 
set the radio time out 

set the hold ofl 



| TIMER INITILIZATION 



TIMER: 



Id PREO.#00001001B 

Id T0.#000H 

Id PRE1. #0000101 1B" 

Id TtMirror#SwPeriod 

Id T1.T1 Mirror 

Id TMR. #00001 1 11 B 

call PORTINIT 



; set the prescaler to / 2 for 8Mhz 
; set the counter to count FF through 0 
; set the prescaler to / 2 for 8Mhz 
set the period to 300uS for switches 

turn on the timer 
init the ports 



;^SET PORTS AND DIVIDER 
.IF E21 



.ELSE 

Id RP,#WATCHDOG_GROUP 

Id smr ; #O0100010B 

Id pcon.#01111110B 

.ENDIF 

Id PREO,#00001001B 



; reset the xtal / number 

; reset the peon no comparator output 

; no low emi mode 

; set the prescaler to / 2 for 8Mhz 



; READ THE MEMORY AND GET THE VAC FLAG 



Id SKIPRADIO,#0FFH 

srp #LEARNEE_GRP 

Id address,#AddressVacation 

call READMEMORY 

call READMEMORY 

Id VACFLAG.mtemph 



; set non vol address to the VAC flag 
; read the value 2X 1X INIT 
; read the value 
; read into volital 



; READ THE TEMPERATURE. 



clr IMR 

Id ADDRESS t #AddressTemperature 

call READMEMORY 

clr IMR 

Id MotorTempHi.MTEMPH 

Id MotorTempLo.MTEMPL 

call TempMeasure 



; turn off all interrupts 

; read the motor temp from nonvol 

; read the memory data 

; turn off all interrupts 



; read the temp 



; Reset the machine according to last state 



/f-23 



IH 


aoarfess.tr Moore^St-asi s-^eraiiun 








. ; get the last operation 


Call 


RPAHMFMHRY 


IH 

la 


DnClTIHM i_| | wn^Cl-l 

r^uoi l lvjrN_ril.ffU/ rn 


; set the position to the temp 


la 


rUol 1 IL^lN^LLJ.ffUU-^M 


; limit till pass point 


IH 
la 


oini c,rnien ipn 


and 


OlMI t.ffUUUU I 1 I ID 


; remove the reason 


can 


HeaaLimiis 


; read the limits 


IH 

la 


Muuntoo.tf Mooressuownr orce i aDie 


; point to the down force table 


cp 


O 1 n 1 C,frOa 


, lesi lor me oown iimii 


i r 


Z,L/wWIIVVdKc 


, it so sei me oown iirnn 


cp 


o I A I t .tT^a 


; test for at the up limit 




z.UpWake 


; if so then set the up limit 




MiawaKe 


; else in mid travel wake up 


Down Wakei 




IH 

la 


DAClTinM Ull Ri K 1 1 II A I— J 1 

nvJol 1 IL/N_ril.UN_LIM_rll 


; set the position as the down 


IH 

la 


rUbl 1 IUN_LU.UN_Lirv!_LU 


, limit 


inc 


WIN FLAG 


• turn on thp> winHnw 


v 


Wake 




Up Wake: 






Id 


ADDRESS,#AddressUpForceTable 


; point to the down force table 


Id 


POSITION HI, UP LIM HI 


; set the position as the up 


Id 


POSITION LO.UP LIM LO 


; limit 


inc 


WIN FLAG 


; turn on the window 


K 


Wake 




MidWake: 






Id 


STATE.#6d 


; set the stopped state 


add 


MotorTempHi,#T27Adder 


; increase temp 



Wake: 

Id BSTATE, STATE 

call ReadForceTable 

call FIND_WINDOW 

clr SKIPRADIO 



; set the backup state 
; read the force table 
; find the window 



INIT :rrupt INITILIZATION 



SETINTERRUPTS: 
.IF E21 

Id IPR,#00101011B 
.ELSE 

Id IPR,#OQ011010B 
.ENDIF 

Id IMR,#ALL_ON_IMR 
.IF E21 

Id IRQ,#OOOO000OB 
.ELSE 

Id IRQ,#01000000B 
.ENDIF 



; set the priority to timer 
; set the priority to timer 
; turn on the interrupt 
; set the edge clear int 
; set the edge clear int 



; enable interrupt 



MAIN LOOP 



MAINLOOP: 

clr DOG2 ■ dear the second watchdog 

cp . Jog,#055H ; lest for jog up 

jr z.DoJogUp ; P 

cp Jog.#OAAH ; test for jog down 

jr 2,DoJogDn 

jr JogSkip 
DoJogUp: 

sub UP JJM_LO.#1 Od ; jog the limit 

sbc UP_LIM_HI,#OOH 

jr JogMem 

DoJogDn: 

add UP_LIMJ_O,#10d ; jog the limit 

adc UP_LIM_HI,#O0H 

JogMem: 

c,r Jo 9 ; one shot 

Id SKIPRADIO,#0FFH ; 

Id ADDRESS,#AddressUpLimit ; set non vol address to the up limit 

Id MTEMPH,UP_LIM_HI ; save into nonvolital 

Id MTEMPL,UP_LIM_LO 

call WRITEMEMOR Y J write the value 

clr SKIPRADIO ; 

,d L_A_C,#30H ; set the jog operation 

JogSkip: 

cp OnePass, STATE ; test if read out of memory allready 

jr 2,SkipMemoryRead ; if so then skip reading out of memory 

cp L_A_C,#42H ; test if in learn mode 

jr uge.LeamSkipMemoryRead ; if so then skip reading out of memory 

cp STATE, #1d ; test for the up state 

jr z.UpTableRead ; if so read the up table 

cp S^ATE.JMd ; test for the down state 

jr z,i ownTableRead ; if so read the down table 

jr SkipMemoryRead ; else skip 

DownTableRead: 

Id SKIPRADIO,#0FFH ; turn off the radio read- 
Id ADDRESS, #AddressDownForceTable ; read the down force table 
call READMEMORY ; dummy read 
call ReadForceTable ; read th.e force table 
clr SKIPRADIO ; allow the radio function 
Id OnePass, STATE ; save the state 
jr SkipMemoryRead 

UpTableRead: 

Id OnePass.STATE ; save the state 

Id SKIPRADIO,#0FFH ; turn off the radio read 



Id 


ADDRESS,#AddressUpForceTabl 


call 


READMEMORY 


call 


ReadForceTable 


clr 


SKIPRADIO 


Id 


OnePass, STATE 


V 


SkipMemoryRead 


LeamSkipMemoryRead: 


Id 


One Pass, STATE 


SkipMemoryRead: 


cp 


L_A_C,#42h 


jr 


uge, SkipReadForce 


call 


ReadForce 


SkipReadForce: 


call 


PORTREF 


srp 


#FORCE_GRP 


cp 


1 a c,#030H 


jP 


ult.CLRLAC 


cp 


l_a_c.#042H 


ir 
J' 


nnp | parnl imitQ 


cp 


l_a_c,#32H 


jp 


ugt,CLRLAC 




I u t.iroun 


jp 


2.G30 


cp 


l_a_c,#31H 


ID 


2,G31 


JP 


G32 


LearnLimits: 




cp 


I a c,#04Fh 


jP 


z.STOREFL 


jP 


ugt,CLRLAC 


. clr 


WIN_FLAG 


cp 


I a c,#042H 


'p 


z,G42 


cp 


I a c,#043H 


jp 


2.G43 


cp 


I a c,#044H 


jp 


2,G44 


cp 


l_a_c,#045H 


jp 


2,G45 


cp 


l_a_c,#046H 


jp 


2,G46 


cp 


I a c.#04AH 


jp 


2.G4A 


cp 


I a c,#04BH 


jp 


2.G4B 


cp 


La_c.#04DH 



; read the up force table 
; dummy read 
; read the force table 
; allow the radio function 
; save the state 



; save the state 

; test for in learn mode 

; if so then skip reading the force 

; read the present force value 



; refresh the ports 

; set the rp 

; test for learn action 

; if less then then clear number 

; test for active learn limits 

; test for the end of jog 
; if so then clear 
; test for stop 

; test for start travel down 

; else delay for up 

; test for to large a number 
; if = store the force and limits 
; if greater or = clear 

; turn off the window 

; test for state 42 

; if so then stop motor and set force 

; test for state 43 

; if so time delay then up 

; test for state 44 

; if so travel up till cmd release 

; test for state 45 

; if so clear timer set next state 

; test for state 46 

; if so time delay then down 

: test for state 4A 

: if so clear timer set next state 

; test for state 4B 

; if so time delay then down 

; test for state 4D 



jp 


z.G4D 


: if so store the force table and 






: set the up force table pointer 


jp 


LACCS 


: else exit 








inc 


forces 


" increase the forf**^ 


cp 


forces,#03 


; test for the max setting 


jr 


ule. SKIPFINC 


Clr 


forces 


: reset if at the max 


SKIPFINC: 






cp 


forces.#03 


; test for the max force 


V 


nz.FORCE2T 


; if not then test for force 2 setting 






Id 


dnJorceJo f #088H 


; set the force to MAX 


Id 


dnJorce__hi,#013H 




jr 


FORCESET 




FORCE2T: 






cp 


forces,#02 


; test for the high force 


jr 


nz.FORCEIT 


; if not test for mid 1 


FORCE2: 






Id 


dnJorceJo f #094H 


; set the force to HI 


Id 


dn_force_hi,#011H 






FORCESET 




r— /—\ r—\ /—■> f— ^ -t- 

FORCE1T: 






CP 


forces.#01 


; test for mid low 


jr 


nz. FORCEO 


; IF NOT THE FORCE IS MUM 


FORCE1 : 






Id 


dn_force_lo,#01 DH 


; set the force to mid 


Id 


dn force hi,#010H 




jr 


FORCESET 




FORCEO: 






Id 


dn_force_lo,#023H 


; set the force to min 


Id 


dn force hi,#O0FH 




jr 


FORCESET 




FORCESET: 






Id 


UP FORCE Hl.dn force ii 


; 


Id 


UP FORCE LO.up force lo 




inc 


LAC 


; set the next state 


Clr 


P5UTD 




JP 


L4CCS 




G30: 






cp 


STATE, #DN_DIRECT ION 


; test for traveling 




z,Delay30 


cp 


STATE,#UPJDIRECTION 




V 


z.Delay30 




inc 


LAC 


; set the next state 


Id 


P5UTD.#11d 


; delay short 


IP 


LACCS 


Delay30: 






clr 


P5UTD 


; clear the timer 


call 


SET_STOP_STATE 


: stop the machine for .5 sec 



G31: 



G32: 



G43: 



G44: 



G45: 
G4A; 



G46: 



G4B: 



jp 




cp 




jp 




clr 


P5UTD 




LAb I CMD.#055H 


Id 


SW_DATA.#CMD_SW 


JP 




cp 


P5UTD.#012d 


jP 


nz.LACCS 


clr 


P5UTD 


Id 


L4ST CMD.#055H 


Id 


SW DATA.#CMD SW 


jP 


L4CCS 


cp 


P5UTD.#06d 



JP 

call 
JP 

cp 

V 
clr 

call 

JR 



clr 
inc 
j r 

di 
clr 
clr 
ei 

cp 

J' 

cp 



nz.LACCS 

SET_UP_DIR 

LACCS 



STATE 



SetDownPointer: 



CMD_DEB.#OFFH 
z. LACCS 
FourDFlag 

SET_UP_POS_STATE 
LACCS 



P5UTD 

l_a_c 

LACCS 



POSITION_HI 
POSITION_LO 



P5UTD,#6d 
ne, LACCS 
l_a_c,#4BH 
nz.SkioDownlnit 



push 
srp 
Id 
Id 

DownForcelnit: 
Id 
inc 
Id 
inc 
djnz 

Id 

com 



RP 

#ForceTable2 
forceaddress, #ForceOHi 
forcetemp,#15d 

@forceaddress,DN_FORCE_HI 
forceaddress 

@forceaddress,DN_FORCE_LO 

forceaddress 

forcetemp. DownForcelnit 



lest for the delay 
if not the skip 
clear the timer 

set the last command as wall cmd 
set the switch data as command 



test for the delay 
if not the skip 
clear the timer 

set the last command as wall cmd 
set the switch data as command 



forceaddress. POSITION, 
forceaddress 



HI 



; test for the delay 
; if not the skip 



; test for the command being held 

; clear the flag 

; set the up position state 



; clear the timer 



clear the position 



; DELAY <.5 SECONDS 
; if not just wait 
; test for set 



set the rp 

set the address pointer to fill 
set the number of address 

; set the initial value 



loop till done 

get the position 

turn it into the pointer 



Dn2X: 



inc 
cp 
V 

Clr 



rcf 
rlc 
add 
pop 
SkipDownlnit: 
call 



G4D: 



cp 
inc 



forceaddress 
forceaddress, #ODH 
ult.Dn2X 
forceaddress 



forceaddress 
forceaddress. #ForceOHi 
RP 

SET_DN_DIR_STATE 
LACCS 



FourDFIag,#00 
nz, LACCS 
FourDFlag 



StoreDownForceTable: 



Id ForceOHi t P32Jv1AX_HI 

Id ForceOLo,P32__MAX_LO 

Id ADDRESS.#AddressDownForceTable 

call StoreForceTable 



test for the max 
if not skip zeroing 

*2 



test for 1 time only operation 
if not skip 



; set the force to P32 for the reverse 



SetUpPointer: 



push RP 

srp #ForceTable2 

Id forceaddress, #ForceOHi 

Id forcetemp,#15d 
UpForcelnit: 

Id @forceaddress,UP_FORCE_HI 

inc forceaddress 

Id @forceaddress,UP_FORCE_LO 

inc forceaddress 

djnz forcetemp, UpForcelnit 

Id forceaddress,#ForceOHi 

pop RP 



set the rp 

set the address pointer to fill 
set the number of address 

; set the initial value 



; loop till done 



LACCS 



; exit 



CLRLAC: 
clr 

LACCSE: 
clr 

LACCS: 

El 

cp 

cp 
Y 



La_c 
P5UTD 



VACCHANGE,#OAAH 
nz.NOVACCHG 
VACFLAG.#OFFH 
z.MCLEARVAC 



; clear the L_A_C reg 

; clear the timer for .5 reverse 



; test for the vacation change flag 
; if no change the skip 
; test for in vacation 
; if in vac clear 



/J- 



Id 


VACFLAG.tfOFFH 


i r 


SETVACCHANGE 


MCLEARVAC: 




clr 


VACFLAG 


SETVACCHANGE: 


clr 


VACCHANGE 


Id 


SKIPRADIO,#0FFH 


Id 


ADDRESS,#AddressVacation 


Id 


MTEMPH, VACFLAG 


Id 


MTEMPL, VACFLAG 


call 


WRITEMEMORY 


clr 


SKIPRADIO 


NOVACCHG: 




cp 


STACKFLAG,#OAAH 


) r 


z. WriteTheTemperature 


cp 


STACKFLAG.#OFFH 


jr 


nz.NOCHANGEST 


srp 


#LEARNEE GRP 


clr 


STACKFLAG 


Id 


SKIPRADIO ? #0FFH 


Id , 


address,#AddressCounter 


call 


READMEMORY 


inc 


mtempl 


i r 


nz.COUNTERDONE 


inc 


mlemph 


K 


nz.COUNTERDONE 


call 


WRITEMEMORY 


Inc 


address 


call 


READMEMORY 


Inc 


mtempl 


V 


nz.COUNTERDONE 


inc 


mtemph 


COUNTERDQNE: 


call 


WRITEMEMORY 


CDONE: 




Id 


address,#AddressLastOperation 


Id 


mtemph, STACKREASON 


or 


mtemph.STATE 


Id 


mtempl, mtemph 


call 


WRITEMEMORY 


clr 


SKIPRADIO 


WriteTheTemperature : 


call 


WriteTemperature 


NOCHANGEST: 


call 


LEARN 


di 




cp 


BRPM TIME OUT.RPM TIME-OUT 


i r 


z, TESTRPM 


RESET: 




IP 


START 


TESTRPM: 




cp 


BFORCE IGNORE. FORCE IGNORE 


V 


nz, RESET 


ei 




di 





; set vacation 
; set the change 

; clear vacation mode 

; one shot 
; set skip flag 

; non vol. address to the VAC flag 
; store the vacation flag 

; write the value 
; clear skip flag 

; test for temperature storage 
; if so save it 
; test for the change flag 
; if no change skip updating 

; set the register pointer 
; clear the flag * 
; set skip flag 

; set the non vol address to the cycle 
; read the value 

; increase the counter lower byte 

; increase the counter high byte 

; store the value 
; get the next bytes 
; read the data 

; increase the counter low byte 
; increase the vounter high byte 
; got the new address 



; or in the state 
; set both the same 
; write the value to s i>ick 
; clear skip flag 



; do the learn switch 



cp BAUTO_DELAY_HI,AUTO_DELAY_Hi 

jr nz ; RESET 

cp BAUTO_DELAY_JjD,AUTO_DELAY_LO 

jr nz, RESET 

cp BCMD_DEB,CMD_DEB 

jr nz, RESET 

cp BSTATE.STATE 

jr nz, RESET 

ei 

TESTRS232: 

SRP #TIMER_GROUP 

cp RSSTART,#OFFH ; lest for starling a transmission 

jp z,SkipRS232 ; if starting a trans skip 

cp rscommand, #"Z" ; 

jp ugt,SkipRS232 ; 

cp ^command^O" ; test for in range 

jp u!t,SkipRS232 ; if out of range skip 

cp rs232docount,#12d ; test for output done 

jp nz,SkipRS232 ; if not the skip 

cp RSCCOUNT,#90H ; test for cr out 

jp nz.CrOutSkip ; no 

call CrOut 

jp SkipRS232 
CrOutSkip: 
di 

push rs_temp_hi ; save the present value 

push rs_tempJo 

push rscommand ; save the command 

sub rscommand.JTO" ; setup for table 

Id rs_temp_hi,# A hb RS232JumpTable ; address pointer to table 

Id rs_temp_lo,# A lb RS232JumpTable 

add rs_temp_lo,rscommand ; look up the jump 3x 

adc rs_temp_hi,#00 ; 

add rsJempJo,rscommand ; look up the jump 3x 

adc rs_jemp_hi,#00 ; 

add rs_temp Jo.rscommand ; look up the jump 3x 

adc rs_temp_hi,#00 ; 

call @rs_temp ; call this address 

cp rscommand,#OFFH ; test for cleared command 

jr nz.SaveCommand 

pop rs_temp_lo ; throw away value 

jr SaveCommandRet 
SaveCommand: 

pop rscommand ; reset the varables 

SaveCommandRet: 

pop rs_temp_lo ; 

pop rs_temp_hi ; 

ei 

jp SkipRS232 ; done 

RS232JumpTable: 

jp GOT CO ; 30 

jp GOTC1 ; 31 



jp 


GOT C2 


: 32 


jp. 


GOTC3 


; 33 


jp 


GOTC4 


; 34 


jp 


GOTC5 


: 35 


jp 


GOTC6 


; 36 


jp 


GOTC7 


; 37 


jp 


GOTC8 


: 38 


jp 


GOTC9 


: 39 


jp 


GOTCNOP 


: 3A : 


jp 


GOTCNOP 


; 3B : 


jp 


GOTCLT 


; 3C < 


jp 


GOTCNOP 


; 3D = 


jp 


GOTCGT 


; 3E > 


jp 


GOTCNOP 


: 3F ? 


jp 


GOTCNOP 


. 40 @ 


jp 


GOTCA 


; 41 


jp 


GOTCB 


;42 


jp 


GOTCC 


43 


jp 


GOT CD 


44 


jp 


GOTCE 


45 


jp 


GOTCF 


46 


jp 


gotcg 


47 


jp 


GOTCH 


48 


jp 


GOTCI 


49 


jp 


GOTCJ 


4A 


ip 


GOTCK 


4B 


jp 


GOTCL 


4C 


jp 


GOT CM 


4D 


jp 


GOTCN 


4E 


jp 


GOTCO ; 


4F 


jp 


GOTCP ; 


50 


jp 


GOTCQ ; 


51 


jp 


GOTCR ; 


52 


jp 


GOTCS ; 


53 


jp 


GOTCT ; 


54 


jp 


GOTCU ; 


55 


jp 


GOTCV ; 


56 


jp 


GOTCW ; 


57 


jp 


GOTCX ; 


58 


jp 


GOTCY ; 


59 


jp 


GOTCZ ; 


5A 



SkipRS232: 

cp R_DEAD_TIME,#20 

jp nz.MAINLOOP 

clr RADIOC 

clr RFLAG 

jp MAINLOOP 



; test for too long dead 
; if not loop 

; clear the radio counter 
; clear the radio flag 
; loop forever 



; Temperature write 



WriteTemperature: 



Id MTEMPH,MotorTempHi ; get the motor temp 

Id MTEMPLMotorTempLo ; 

Id ADDRESS,#AddressTemperature ; set the address 

Id SKIPRADIO,#0FFH ; turn off the radio memory read 

call WR1TEMEMORY ; write the data 

clr SKIPRADIO ; turn back on the radio 

ret 



;RS232 SUBROUTINES 



GOTCLT: ; 3C < 

Id Jog,#OAAH ; jog 

jp OnePosC 

GOTCGT: ; 3E > 

Id Jog,#055H ; jog 

jp OnePosC 

GOTCNOP: ; no operation skip values 

jp OnePosC 

GOTCO: ; SWITCH DATA 

Id RS232DO,#"0* ; clear the data 

cp CMD_DEB,#OFFH ; test for the command set 

jr nz,CMDSWOPEN 

or RS232DO,#O0000001 B ; set the marking bit 

CMDSWOPEN: 

cp LIGHT DEB,#OFFH ; test for the worklight set 

jr nz.WLSWOPEN 

or RS232DO,#0000001 OB ; set the marking bit 

WLSWOPEN: 

cp VAC_DEB,#OFFH ; test fir the vacation set 

jp nz,VACSWOPEN ; 

or RS232DO.#00000100B ; set the marking bit 

jp VACSWOPEN 



GOTC1 : ; SYSTEM STATE 

Id RS232DO,#*<r ; start from 0 

cp VACFLAG,#00H ; test the vacation flag 

jr z,NOTINVACATION 

or RS232DO,#001B ; 

NOTIN VACATION: 

tm pO,#WORKLIGHT ; test for the light on 

jr z.LIGHTISOFF 

or RS232DO,#01 OB ; mark the bit 

LIGHTISOFF: 

tm AOBSF,#00000001 B ; test for aobs error 

jp z, VACSWOPEN 



or RS232DO.£10GE 
jp VACSWOPEN 



GOTC2: 

Id RS232DO.RPM_PERIOD_LO 
cp RSCCOUNT;#01H ] test for on transmitted last 

jp z,LastPos 

Id RS232DO.RPM_PER!OD_HI ; 

jp FirstPos 

GOTC3: ; SWITCH DATA 

Id RS232DO.*T0" ; clear the data 

cp LEARNDB ; #OFFH ; test tor learn set 

jr nz.LearnSwitchOpen ; jf open skip bit 

or RS232DO,#00000001 B ; set the marking bit 

LearnSwitchOpen : 

cp LEARNT. #OFFH ; test tor learn mode 

jr z.RSNOTINLEARN 
or . RS232DO.#00000010B 
RSNOTINLEARN: 

cp WIN_FLAG,#00 ; test for the win flag 

jp z. VACSWOPEN ; if not set leave bit as 0 

or RS232DO,#O0000100B 

jp VACSWOPEN 

GOTC4: 

Id RS232PAGE,#O0H ; 

jp RS232PAGEOUT 

GOTC5: 

Id RS232PAGE,#10H 

jp RS232PAGEOUT 

GOTC6: 

Id RS232PAGE.#20H ; 

jp RS232PAGEOUT 

GOTC7: 

Id RS232PAGE,#30H ; 

jp RS232PAGEOUT 



GOTC9: 

call LearnSet 

jp OnePosN 

GOTCA: 

Id rs232do,POSITION_LO 

cp RSCCOUNT,#01 H ; test for on transmitted last cycle 

jp z.LastPos 

A --31 



Id rs232do,POSmorj_H: 
jp FirslPos 



GOTCB:- 

Id rs232do,DN_LIM_LO 

cp RSCCOUNT,#01H 

jp z, LastPos 

Id RS232DO,DN_LIM_HI 

jp FirstPos 

GOTCC: 

Id rs232do,UP_LIM_LO 

cp RSCCOUNT,#01H 

jp z,LastPos 

Id rs232do,UP_LIM_HI 

jp FirstPos 

GOTCD: 

Id rs232do,MAX_F_LO 

cp RSCCOUNT,#01H 

jp z.LastPos 

Id rs232do,MAX_F_HI 

jp FirstPos 

GOTCE: 

Id rs232do,DN_FORCE_LO 

cp RSCCOUNT,#01H 

jp z, LastPos 

Id rs232do,DN_FORCE__HI 

jp FirstPos 



test for on transmitted last cycle 



; test for on transmitted last cycle 



; test for on transmitted last cycle 



; test for on transmitted last cycle 



GOTCF: 



Id rs232do, UP_FORCE_LO 

cp RSCCOUNT,#0iH 

jp z.LastPos 

Id rs232do,UP__FORCE_H! 

jp FirstPos 



; test for on transmitted last cycle 



GOTCG: 



Id RS232DO.PWINDOW 
jp LastPos 



; read the state 



GOTCH: 



Id RS232DO,WIN_FLAG 
add RS232DO,#"0" 
jp LastPos 



; read the state 



GOTCI: 



Id U\ST_CMD,#OAAH 

call CmdSet 

Id RS2320DELAY,#1 00D 

jp OnePosN 



; give the system a command 

; set the command 

; set a delay of 1 00*. 2ms = 20mS 



GOTCJ: 



Id RS232DO.Temperature 
jp LastPos 



; read the temperature 



GOTCK: 

Id RS232DO,MotorTempHi ; read the motor temperature 

jp LastPos 

GOTCL: 

cp L_A_C.#41h ; test tor the learn limits flag 

jr ugt.lnLearnOutForces ; if in learn then output forces 

Id rs232do,#"9'" ; else 9 

jp LastPos ; output 

InLearnOut Forces: 

Id rs232do,FORCES ; output forces 

add rs232do,#030h ; 

jp LastPos 

GOTCM: ; gi ve the system vacation switch action 

call VacSet : set the vacation 

jp OnePosN 

GOTCN: ; gj ve the system a work light command 

call LightSet ; set the worklight switch 

jp OnePosN 

GOTCO: 

Id rs232do,ForceAddLo ; 

cp RSCCOUNT,#01 H ; test for on transmitted last cycle 

jp z, LastPos 

Id rs232do,ForceAddHi ; 

jp FirstPos 

GOTCP: 
di 

Id CMD_DEB,#O0 

Id BCMD_DEB,CMD_DEB 

jp OnePosN 

GOTCQ: 
di 

Id CMD_DEB,#OFFH 

Id BCMD_DEB,CMD_DEB 

jp OnePosN 

« 

GOTCR: 

cp RsRto,#10lD ; test for the timer time out 

jr ule,OutputCode ; if timer active then output radio code 

Id RS232DO,#OFFH 

jp RCodeOut 
OutputCode: 

cp RSCCOUNT ? #0D ; test for the force byte 

jr z.CodeRFirst 

cp RSCC0UNT,#1D 

jr z,CodeRSec 

cp RSCCOUNT,#2D 

jr z.CodeRTh 

Id RS232DO.PRADI01L ; 



RCode.Out: 



cp 


RSCCOUNT.#3D 


: test lor the end 


jp. 


z.LastPos 




jp 


First P os 




CodeRFirst: 






Id 


RS232DO.PRADI03H 




i r 


HUOoeLJui 




v^ooenbfcc. 






la 


Hb232L>U,PRADI03L 






Hoodecjut 




PnHoDTh 

ooaeri i n. 






Id 


RS232D0,PRADI01H 




V 


RCodeOut 




oU 1 Ob. 






cp 


HbUUUUN I ,#0D 


; test for the lorce byte 


V 


z.CodeSFirst 


cp 


RSCCOUNT,#1 D 




i r 


z,CodeSSec 






CodeSTh 




ooodeout. 






cp 




, test tor the end 


JP 


z.LastPos 




jP 


FirstPos 




OOaeorirSI. 






Id 


RS232DO,# 0 




cp 


1 emperature t #l 00D 


• 


i r 


uit.oUoaevJul 




Id 


RS232DO,# 1 










uooeoosc . 






push 


Temperature 


; save the temperature 


cp 


i emperaiure.fF i uuu 


; remove the last digit 


i r 


Ult.OKlpOOUD 


sub 


TemDerature #100d 




SkipSSub: 






clr 


RS232DO 


start at zero for the start bit 


SSecLoop: 






cp 


Temperature, #10d 


test for loop continue 


j r 


ult.SSecDone 


test for done 


sub 


Temperature, #10d 




inc 


RS232DO 


counter increase 


i r 


SSecLoop 




SSecDone: 






pop 


Temperature 


reset 


add 


RS232DO,#"CT 




V 


SCodeOut 


done 



CodeSTh: 

/I -37 



push 


Temperature 


; save the temperature 


cp 


Temperature. #1 OOd 


; remove the last digit 


Y 


ult.SkipSSub2 


sub 


Temperature,#100d 




SkipSSub2: 






clr 


RS232DO 


; staii at 2ero for the start bit 


o i riLOop. 






cp 


Temperature, #10d 


; test tor loop continue 


V 


ult. SThDone 


; test for done 


sub 


Temperature, #10d 




inc 


RS232DO 


; counter increase 


V 


SThLoop 




SThDone: 






Id 


RS232DO. Temperature 


; output remainer 


pop 


Temperature 


; reset 


add 


RS232DO.# M CT 




i r 


SCodeOut 


, done 


GOTCT: 






cp 


RSCCOUNT.#0D 


test for the force byte 


V 


z, CodeTFirst 


cp 


RSCCOUNT,#1D 




V 


z. CodeTSec 




V 


oode I I h 




TCodeOut: 






cp 


RSCCOUNT,#2D 


test for the end 


JP 


2,LastPos 




)P 


FirstPos 




CodeTFirst: 






Id 


RS232DO,# ,, 0' , 




cp 


MotorTempHi,#100D 




v 


ult, TCodeOut 




Id 


RS232DO,#"r ; 




V 


TCodeOut 




CodeTSec: 






push 


Motoi TempHi ; 


save the temperature 


cp 


MotorTempHi,#100d ; 


remove the last digit 


V 


ult,SkipTSub ; 




sub 


MotorTempHi,#100d ; 




SkipTSub: 






clr 


RS232DO ; 


start at zero for the start bit 


TSecLoop: 






cp 


MotorTempHi,#lOd : 


test for loop continue 


i r 


ult, TSecDone ; 


test for done 


sub 


MotorTempHi,#10d ; 




inc 


RS232DO ; 


counter increase 


V 


TSecLoop 




TSecDone: 






pop 


MotorTempHi ; 


reset 


add 


RS232DO.#"0" 




l r 


TCodeOut ; 


done 



/f-3* 



CodeTTh: 

push MotorTempHi ; save the temperature 

cp MotorTempHi. #lOOd ; remove the last digit 

jr ult,SkipTSub2 ; 

sub MotorTempHi, #100d ; 
SkipTSub2: 

clr RS232DO ; start at zero for the start bit 
TThLoop: 

cp MotorTempHi, # 1 0d ; test lor loop continue 

jr ult.TThDone ; test for done 

sub MotorTempHi,#10d ; 

inc RS232DO ; counter increase 

jr TThLoop 
TthDone: 

Id RS232DO, MotorTempHi ; output remainer 

pop MotorTempHi ; reset 

add RS232D6.*"0" 

jr TCodeOut ; done 



GOTCU: 

Id RsMode s #232D ; turn on the rs232 mode period 

Id RS232DO.#Version ; read the Version 

and rs232do, #00001 1 1 1 B ; get the last byte 

add rs232do.*T0" ; 

cp RSCCOUNT,#01 H ; test for on transmitted last cycle 

jp z.LastPos 

Id rs232do.# Version ; read the Version 

swap rs232do 

and rs232do,#O0001 1 11 B ; get the first byte 

• add rs232do,#"0" ; 

jp FirstPos 

GOTCV: 

Id RS232DO, STATE ; read.the state 

add RS232DO,#"0' ; add the offset 

jp VACSWOPEN ; 

GOTCW: 

Id RS232DO.STACKREASON ; read the reason 

swap RS232DO ; 

add RS232DO.#' , 0 ,, ; add the offset 

jp VACSWOPEN ; 

GOTCX: 

Id RS232DO.FAULTCODE ; read the fault 

add RS232DO.rO" ; add the offset 

jp VACSWOPEN , ; 

GOTCY: 

clr RS232DO ; start clean 

tm P0,#0001 0000B ; test for first gear strap 

jr z.SkipStrapl 

or RS232DO,#00000001b ; set the bit 



SkipStrapl: 

tm P0.#O01O0000B ; test for the second gear 

jr z,SkipStrap2 ; 
or . RS232DO,#00000010B : set the bit 

SkipStrap2:. 

tm P2,#10000000B ; test for the temperature 

jr 2,SkipStrap3 ; 

or RS232DO,#0000010GB ; set the bit 

SkipStrap3: 

add RS232DO.#"(T ; add the offset 

jp VACSWOPEN ; 

GOTCZ: 

Id MotorTempHi.Temperature 

call WriteTemperature 

jp OnePosN 



; Store the limits and the up force settings 



STOREFL: 

Id SKIPRADIO,#0FFH ; 

Id ADDRESS, #AddressUpLimit ; set non vol address to the up limit 

Id MTEMPH,UPJJM_HI ; save into nonvolital 

Id MTEMPL,UP_LIM_LO ; 

call WRITEMEMORY ;' write the value 

Id ADDRESS,#AddressDownLimit ; set non vol address to the down limit 

Id MTEMPH,DN_LIM__HI ; save into nonvolital 

Id MTEMPL,DNJJMJ_0 ; 

call WRITEMEMORY ; write the value 

StoreUpForceTable: 

Id ADDRESS,#AddressllpForceTable 

call StoreForceTable 

inc WIN_FLAG ; turn on the /indow 

Clr SKIPRADIO ; 

JP CLRLAC ; return and clear the lac 



FirstPos: 

dec RSSTART ; set the start flag 

inc RSCCOUNT ; increase the count 

ret 

OnePosN: 

Id RS232DO,#"0" ; 

jr LastPos 
OnePosC: 

Id RS232DO,#-@" ; 



# 





LaSir OS . 






. VACSWOPEN 






Id 


RSCCOUNT,#090H 




dec 


RSSTART 




ret 






CrOut: 






Id 


RS232DO,#00DH 




dr 


RSCCOUNT 




dec 


RSSTART 




Id 


rscommand,#OFFH 




ret 






RS232PAGEOUT: 


Ls:J 


Id 


SKIPRADIO,#0FFH 


is it 1 


Id 


ADDRESS,RSCCOUNT 


m ■ 


rcf 




yj 


rrc 


ADDRESS 




or 


ADDRESS, RS232PAGE 




call 


READMEMORY 




Id 


RS232DO,MTEMPH 


y s 


tm 


RSCCOUNT.WIH 




jr 


2, RPBYTE 


i~ ::: : 


Id 


RS232DO.MTEMPL 


nj 


RPBYTE: 




"n a 

I.'* 


clr 


SKIPRADIO 




cp 


RSCCOUNT,#1FH 


Q 


J* r 


z.LastPos 


fiJ 


V 


First Pos 



; mark to do cr 
; set the start flag 



; set the cr output 
; reset the counter 
; set the start flag 
; turn off command 



; set the skip radio flag 
; find the address 



; read the data 
; test which byte 



; turn off the skip radio 
; test for the end 



GOTC8: 
Id 
Id 
Id 
Id 
Id 

WRITELOOP1: 
.IF 
xor 
.ELSE 
WDT 
.ENDIF 
call 
inc 
cp 

ld 

READLOOP1: 
.IF 
xor 
.ELSE 
WDT 
.ENDIF 
call 
inc 
K 



RS232DO,#0FFH 

SKIPRADIO,#0FFH 

MTEMPH,#OFFH 

MTEMPL,#OFFH 

ADDRESS,#O0 

E21 

Pi ,#00000001 B 



WRITEM EMORY 

ADDRESS 

ADDRESS,#40H 

nz.WRITELOOPl 

ADDRESS,#00 

E21 

P1 ,#00000001 B 



READMEMORY 
MTEMPH 

nz.MEMORYERROR 



; flag set to error to start 
; set the skip radio flag 
; set the data to write 

» 

; start at address 00 



; Kick the external dog 
; KICK THE DOG 



do the next address 
test for the last address 

; start at address 0 



; Kick the external dog 

; KICK THE DOG 

; read the data 
; test the high 
; if error mark 



4-1 




# 



! 3 

= i S 

in 

n 

fu 



mc 

i r 

inc 
cp 

i r 

Id 
Id 
Id 

WRITELOOP2: 
.IF 
xor 
.ELSE 
WDT 
.ENDIF 
call 
inc 
CP 

V 

Id 

READLOOP2: 
.IF 
xor 

.ELSE 
WDT 
.ENDIF 
call 
cp 

V 
cp 

V 

inc 
cp 
J r 

call 
clr 
clr 



MTEMPL 

nz.MEMORYERROR 
ADDRESS 
ADDRESS,#40H 
nz.READLOOPl 

MTEMPH,#OOOH 
MTEMPL,#OO0H 
ADDRESS,#O0 

E21 

PI, #0000000 1B 



WRITEMEMORY 

ADDRESS 

ADDRESS,#40H 

nz,WRITELOOP2 

ADDRESS,#O0 

E21 

Pi ,#00000001 B 



READMEMORY 
MTEMPH,#00 
nz,MEMORYERROR 
MTEMPL,#00 
nz,MEMORYERROR 
ADDRESS 
ADDRESS,#40H 
nz,READLOOP2 
CLEARCODES 
SKIPRADIO 
RS232DO 
MEMORYERROR: 

dec RSSTART 

Id RSCOMMAND,#0FFH 

jp SkipRS232 



test the low 

if error mark 

set the next address 

test for the last address 



set the data to write 
start at address 00 

; Kick the external dog 
: KICK THE DOG 



; do the next address 
; test for the last address 

; start at address 0 



; Kick the external dog 

; KICK THE DOG 

; read the data 

; test the high 

; if error mark 

; test the low 

; if error mark 

; set the next address 

; test for the last address 



; clear the skip radio flag 
; flag all ok 

; set the start flag 
; turn off command 
; return 



PORT INITILIZATION 



PORTINIT: 
Id 
Id 
Id 

PORTREF: 
Id 
Id 

Id 



P0,#P01SJNIT 

P2,#P2S_INIT 

P3,#P3S_INlT 

P01M,#P01MJNIT 
P3M,#P3MJNIT 

P2M,#(P2M_INIT+0) 



RESET all ports 



; port refresh 

; set mode p00rp03 out p04-p07in 
; set port3 p30-p33 input analog mode 
; p34-p37 outputs 
; set port 2 mode 



A- 



42 



ret 



return 



Radio interrupt from a edge of the radio signal 



RADIOJNT: 




push 


RP 


srp 


#RADIO GRP 


Id 


rtemph.TOEXT 


Id 


rlempl.TO 


tm 


IRQ.#00010000B 




2.RTIMEOK 


tm 


rtemp!.#tOOOOOOOB 


V 


z, RTIMEOK 


dec 


rtemph 


RTIMEOK: 




clr 


RJDEAD_TIME 


.IF E21 




and 


IMR t #111lH00B 


.ELSE 




and 


IMR,#11111110B 


.ENDIF 


Id 


rtimedh, rtimeph 


Id 


rtimedl.rtimepl 


sub 


rtimedl,riempl 


sbc 


rtimedh, rtemph 


tm 


rtimedh. #10000000B 




z. RTIMEDONE 


Id 


rtimedh, rtemph 


Id 


rtimedLrternpl 


sub 


rtimedl.rtimepl 


sbc 


rtimedh, rtimeph 


RTIMEDONE: 


tm 


P3.#O0000100B 


V 


nz, ACTIVETIME 


INACTIVETIME: 


cp 


RINFILTER,#OFFH 




z.GOINACTIVE 


V 


RADIO_EXIT 


GOINACTIVE: 




.IF E21 




.ELSE 




or 


irq;#oioooooob 


.ENDIF 




clr 


RINFILTER 


Id 


rtimeih, rtimedh 


Id 


rtimeil.rtimedl 


Id 


rtimeph.rtemph 


Id 


rtimepl,rtempl 


V 


RADIO_EXIT 


ACTIVETIME: 




cp 


RINFILTER, #OOH 



; save the radio pair 

; set the register pointer ' 

; read the upper byte 

; read the lower byte 

; test for pending int 

; if not then ok time 

; test for timer reload 

; if not reloaded then ok 

; if reloaded then dec high for sync 

; clear the dead time 

; turn off the radio interrupt 

; turn off the radio interrupt 

; find the difference 



past time and the past time in temp 
test for a negitive number 
if the number is not negitive then done 
find the difference 



past time and the past time in temp 

; test the port for the edge 

; if it was the active time then branch 

; test for active last time 
; if so continue 
; if not the return 



; set the bit setting direction to pos edge 

; set flag to inactive 

; transfer difference to inactive 

; transfer temp into the past 

; return 

; test for active last time 
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z, GOACTIVE 


J r 


RADIO_EXIT- 


GOACTIVE: 




JFE21 


.ELSE 


and 


IRQ,#001 1 1 1 1 1 B 


.ENDIF 


Id 


RINFILTER,#OFFH 


Id 


rtimeah.rtimedh 


Id 


rtimeal.rtimedl 


Id 


rtimeph ? rtemph 


Id 


rtimepl.rtempl 


ei 




cp 


radioc,#OOH 


V 


nz, INSIGNAL 


MEASUREBLANK: 


cp 


rtimeih,#1 10D 


jP 


ugt,CLEARRADIO 


cp 


rtimeih,#40D 


JP 


ult,CLEARRADIO 


cp 


rtimeah,#03H 


V 


ugt.SETREC3MS 


V 


nz,SETREClMS 


cp 


rtimeal.#09DH 


F 


ugt,SETREC3MS 


SETREC1 MS: 


tm 


RFLAG,#OC010000B 


■V 


z.SETFIRSTlMS 


1ms 




and 


RFLAG,#t01111_11B 


or 


RFLAG,#00100000B 


clr 


radio3h 


clr 


radio3l 


jr 


INCCOUNT 


SETFIRST1 MS: 


or 


RFLAG.#01000000B 


clr 


radio 1h 


clr 


radio 11 




INCCOUNT 


SETREC3MS: 




and 


RFLAG,#10111111B 


clr 


radio3h 


clr 


radio3l 


INCCOUNT: 




inc 


radioc 


V 


RADIO_EXIT 


RADIO_EXIT: 




Pop 


RP 


iret 




INSIGNAL: 




cp 


r1imeah,#9D 


jp 


ugt.CLEARRADIO 


PULSEWOK: 


. cp 


rtimeih,#9D 



; if so continue 
; if not the return 



; clear the bit setting dir to neg edge 

transfer difference to active 
transfer temp into the past 



; test for blank time 

; if the count not zero then in signal 

test the timer for > 55mS 

if > 55 then clear the radio 

test the timer for < 20mS 

if < 20mS then clear the radio 

test the sync for a 3mS period first > 1 

if 2mS or greater then 3mS sync code 

if less then 1 then it is a 1 mS 

test for 1 .85 "middle value 2" 

if greater then set a 3 

; test for the reception of the 1 mS code 
; if the bit is not set then this is the first 



; clear the flag so writing into 3mS word 
; set the flag saying 2nd 1mS word 
; clear the last reception 

; then inc the count for insignal 

set the flag for the first 1mS word 
clear the last reception 

then inc the count for insignal 

clear the flag so writing into 3mS word 
c'ear the last reception 



; set the counter to the next word 



; reset the register pair 



; test the radio pulse width for 4.5mS 
; if greater then 4 .5 then clear the radio 

; test the radio blank width for 4.5mS 
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jp 


ugt.CLEARRADIC 


BLANKWOK: 


Id 


rtemph.rtimeih 


Id 


rtempl.rtimeil 


sub 


rtempl.rtimeal 


sbc 


rlemph.rtimeah 


v 


c.NEGDIFF 


cp 


rlemph,#01 H 


■V 


ugt.SETTOO 


i r 


ult.SETTOl 


tm 


rtempl,#10000000B 




z.SETTOl 


i r 


SETTOO 


NEGDIFF: 




Id 


rlemph.rtimeah 


Id 


rtempl.rtimeal 


sub 


rtempl.rtimeil 


sbc 


rtemph.rtimeih 


cp 


rtemph,#01H 


jr 


ugt,SETT02 


jr 


ult.SETTOl 


tm 


rtempl,#10000000B 


J' 


Z,Ol 1 IUI 




SETT02 


SETTOO: 




Id 


RTEMP,#O0D 


j r 


INCRECORD 


SETT01 : 




Id 


RTEMP,#01D 


jr 


INCRECORD 


SETT02: 




Id 


RTEMP,#02D 




INCRECORD 


INCRECORD: 




tm 


RFLAG,#O1O00O00B 


j r 


2.MS3RECORD 


Id 


rtemph.radiolh 



Id 

add 

adc 

add 

adc 

add 

adc 

inc 

cp 

J r 
JP 

V 

MS3RECORD: 
Id 
Id 

add 
adc 



rtempl.radioll 

radioll.rtempl 

radio1h,rlemph 

radioll.rtempl 

radiolh.rtemph 

radioll.rtemp 

radio1h.#00h 

radioc 

radioc,#11D 

z.GOTAWORD 

ugt.CLEARRADIO 

RADIO EXIT 



rtemph,radio3h 
rtempi,radio3l 
radio3Lrtempl 
radio3h,rtemph 



; if greater then 4.5 then clear the radio 

; transfer pulse time to temp reg 

; subtract the pulse from the blank 

; if the difference is negitive then branch 

; test for a number 1 

; if greater then set 0 

; if less then 1 set to 1 

; test for 80 or greater 

; if the diff is less then 80h 

; else set to a zero 

; transfer pulse time to temp reg 

; subtract the pulse from the blank 
i 

; test for a number 1 

; if greater then set 2 

; if less then 1 set to 1 

; test for 80 or greater 

; if the diff is less then 80h one 

; else set to a two 

; set the bit value to a 00 
; goto adding into the record 

; set the bit value to a 01 
; goto adding into the record 

; set the bit value to a 10 
; goto adding into the record 

test radio flag for area to be modifing 
if cleared then working the 3ms 
transfer the record to temp 

add the number to it self 2* for base 3 



increase the radio counter 
test for the last bit 
if so we got a word 
else garbage 

else return till the next bit comes along 



transfer the record to temp 

add the number to it self 2* for base 3 
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* 



radio3l,rtempl 

radio3h,rtemph 

radio3l,rtemp 

radio3h,#00D 

radioc 

radioc,#11D 
z.GOTAWORD 
RADIO EXIT 



RFLAG,#01000000B 
2,MARK3REC 
RFLAG,#00010000B 
TESTFORTWO 

RFLAG,#00001000B 
TESTFORTWO 

radioc 

RADIO_EXIT 





TESTFORTWO: 


few 
F5 H 


tm 


RFLAG,#0001 0000B 


S 


V 


2,DONEONE 


i 


tm 


RFLAG,#00001000B 




jr 


z.DONEONE 




tm 


RFLAG,#00100000B 


m 


V 


2,KNOWCODE 




or 


RFLAG,#00000010B 




cp 


rtemp,#O0 




JP 


z,KNOWCODE 




or 


RFLAG,#00000100B 




KNOWCODE: 






clr 


RsRto 




cp 


SKIPRADIO,#0FFH 




JP 


2.CLEARRADIO 




Id 


ADDRESS,#AddressVacation 




call 


READMEMORY 




Id 


VACFLAG,MTEMPH 




cp 


LEARNT.#OFFH 




V 


2TESTCODE 




STORECODE: 






cp 


PRADI01H,radio1h 




V 


n2, STORE NOTMATCH 




cp 


PRADIOlL,radio1l 




V 


n2,STORENOTMATCH 




cp 


PRADI03H,radio3h 




i r 


n2,STORENOTMATCH 




cp 


PRADI03L,radio3l 




F 


nz,STORE NOTMATCH 




call 


TESTCODES 




cp 


ADDRESS, #OFFH - 




V 


nz.NOWRITESTORE 



STOREMATCH: 



add 

adc 

add 

adc 

inc 

cp 

K 

•p 

GOTAWORD: 
o r 

U-J jr 
03 MARK3REC: 

w.*^ o r 

y3 jr 

□ DONEONE: 

V jp 



add in the new value 

increase the radio counter 
test for the last bit 
if so we got a word 

else return till the next bit comes along 



; test radio flag for area just modifing 
; if bit is cleared then the 3ms is filled 
; set the flag 

; jump to test for two codes 
; set the flag 

; jump to test for two codes 

; clear the radio counter 
; return 

; test for the 1 mS word 

; we just have one code done 

; test for the 3mS word 

; we just have one code done 

; test the flag for BC 

; if A code we do nothing 

; set the B and C flag 

; test word 10 for a 0 "C" code 

; if a C code were done 

; set the B code flag 

; reset the received flag 

; test for the skip flag 

; skip flag active donot look at EE mem 

; set the non vol to the VAC flag 

; read the value 

; save into volital 

; test for in learn mode 

; if out of learn mode then Vest matching 

; test for the match 

; if not a match then loop again 

; test for the match 

; if not a match then loop again 

; test for the match 

; if not a match then loop again 

; test for the match 

; if not a match then loop again 

; test the code to see if in memory now 

; if there is a match pretend to store 





tm 


RFLAG. #000001 00E 




ir 


nz. BCODE 




tm . 


RFLAG,#00000010B 




i r 


nz, CCODE 




ACODE: 






Id 


ADDRESS,#AddressApointer 




call 


READMEMORY 




inc 


MTEMPH 




inc 


MTEMPH 




and 


MTEMPH.#1 11111 10B 




cp 


MTEMPH, #1 7H 




jr 


ult, GOTAADDRESS 


n 


Id 


MTEMPH, #O0D 


a: sr. 


GOTAADDRESS: 




Id 


ADDRESS,#AddressApointer 




Id 


RTEMP, MTEMPH 


. S i5 a 


Id 


MTEM PL, MTEMPH 


at 


call 


WRITEMEMORY 




Id 


ADDRESS, rtemp 


U'l 


v 


READYTOWRITE 


5! 


BCODE: 




r :i s 


Id 


ADDRESS,#AddressB 


nJ 


V 


READYTOWRITE 




CCODE: 






Id 


ADDRESS,#AddressC 


stx. 


READYTOWRITE: 




call 


WRITECODE 




NOWRITESTORE: 




xor 


p0,#WORKLIGHT 




Id 


LearnLed,#O0111111b 




Id 


LIGHT1S,#244D 




Id 


LEARNT,#OFFH 




dr 


RTO 




JP 


CLEARRADIO 




STORENOTMATCH: 




Id 


PRADI01H,radio1h 




Id 


PRADIOlL,radio1l 




Id 


PRADI03H,radio3h 




Id 


PRADI03L,radio3l 


- 


jP 


CLEARRADIO 




TESTCODE: 






Id 


PRADI01H,radio1h 




Id 


PRADI01L,radio1l 




Id 


PRADI03H t radio3h 




Id 


PRADI03L.radio3l 




tm 


LearnLed,#11000000B 




V 


nz,FS1 




Id 


LearnLed,#00111100b 




FS1: 






call 


TESTCODES 




cp 


ADDRESS, #0FFH 




V 


nz.GOTMATCH 




JP 


CLEARRADIO 



; test for the b code 
; if a B code jump 
; test for a C code 
; if a C code jump 

; set the address to read the last written 

; read the memory 

; add 2 to the last written 

; set the address on a even number 
; test for the last address 
; if not the last address jump 
; set the address to 0 

set the address to write the last written 
save the address 
both bytes same 
write it 

set the address 



; set the address for the B code 

; set the address for the C code 
; write the code in radiol and radio3 
; toggle light 

; turn off the LED for program mode 
; turn on the 1 second blink 
; set learnmode timer 
; disallow cmd from learn 
; return 

transfer radio into past 



get the next code 



transfer radio into past 



test for fault or learn 
if so then skip blink 
blink led 

test the codes 

test for the not matching state 

if matching send a command if needed 

else clear the radio 
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GOTMATCH: 



or 


R FLAG, #0000000 1B 


cp 


RTO,#101D 


V 


ult,NOTNEWMATCH 


TESTVAC: 




cp 


VACFLAG.#O0B . 


i r 


z.TSTSDISABLE 


cp 


ADDRESS, #AddressB+1 


jr 


nz.NOTNEWMATCH 


TSTSDISABLE: 


cp 


SDISABLE,#32D 


jr 


ult.NOTNEWMATCH 


clr 


RTO 


cp 


ONEP2,#00 




nz.NOTNEWMATCH 


RADIOCOMMAND: 


clr 


RTO 


cp 


ADDRESS, #AddressB+1 


V 


nz, BDONTSET 


Id 


BCODEFLAG,#077H 


BDONTSET: 




clr 


LASTCMD 


Id 


RADIO CMD,#0AAH 


V 


CLEARRADIO 



; set the flag for recieving without error 

; test for the timer time out 

; if timer active then donot reissue cmd 

; test for the vacation mode 
; if not vac mode disable 

; test for the B code 
; if not a B not a match 

; test for 4 second 

; if 6 s not up not a new code 

; clear the radio timeout 

; test for the 1 .2 second time out 

; if timer is active then skip command 

; clear the radio timeout 
; test for a B code 
; if not a b code donot set flag 
; flag for aobs bypass 



; mark the last command as radio 
; set the radio command 
; return 



TESTCODES: 



ei 




clr 


ADDRESS 


NEXTCODE: 




call 


READMEMORY 


cp 


MTEMPH.radiolh 




nz,NOMATCH 


cp 


MTEMPL,radio1l 


V 


nz, NOMATCH 


inc 


ADDRESS 


call 


READMEMORY 


cp 


MTEMPH,radio3h 


i r 


nz,NOMATCH2 


cp 


MTEMPL,radio3l 


i r 


nz,NOMATCH2 


ret 




NOMATCH: 




inc 


ADDRESS 


NOMATCH2: 




inc 


ADDRESS 


cp 


ADDRESS,#Addre 




ult. NEXTCODE 



GOTNOMATCH: 

Id ADDRESS, #0FFH 
ret 



; start address is 0 

; read the word at this address 
; test for the match 

; if not matching then do next address 
; test for the match 

; if not matching then do next address 
; set the second half of the code 
; read the word at this address 
; test for the match 

; not matching then do the next address 
; test for the match 
; if not matching do the next address 
; return with the address of the match 



; set the address to the next code 

; set the address to the next code 

; test for the last address 

; if not the last address then try again 



set the no match flag 
and return 



NOTNEWMATCH: 



clr 


RTO 


and 


RFLAG,#00000001 B 


clr 


radioc 


Id 


LEARNT. #OFFH 


jp 


RADIO_EXIT 


CLEARRADIO: 




.IF E21 




.ELSE 




and 


IRQ,#00111111B 


.ENDIF 




Id 


RINFILTER,#OFFH 


CLEARRADIOA: 


tm 


RFLAG,#00000001 B 


jr 


z.SKIPRTO 


clr 


RTO 


SKIPRTO: 




clr 


radioc 


clr 


RFLAG 


jP 


RADIO_EXIT 



; reset the radio time out 

; clear radio flags recieving w/o error 

; clear the radio bit counter 

; set learn timer "turn off" and backup 

; return 



; clear bit setting direction to neg edge 

; set flag to active 

; test for receiving without error 

; if flag not set then donot clear timer 

; clear radio timer 

; clear the radio counter 
; clear the radio flag 
; return 



Store the force table 

Enter with the address pointing to the first address 



StoreForceTable: 



. push 
srp 
di 
.IF 
xor 
.ELSE 
WDT 
.ENDIF 
Id 
id 

MemTransfer: 
Id 
inc 
Id 

inc 
IF 

xor 

.ELSE 

WDT 

.ENDIF 

call 

inc 

djnz 

pop 



RP 

#ForceTable2 
E21 

P1 .#00000001 B 



forcetemp,#14d 
forceaddress,#ForceOHi 

MTEMPH, (©forceaddress 

forceaddress 

MTEMPL,<3>forceaddress 

forceaddress 

E21 

P1 ,#00000001 B 



WRITEM EMORY 
ADDRESS 

forcetemp, MemTransfer 
RP 



; set the rp 

; Kick the external dog 

; KICK THE DOG 

; set the number to do 
; set the start address 

; get the value 



Kick the external dog 

KICK THE DOG 

write the values 

set to the next address 

loop till done 
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ei 
ret 



Read Force Table 

Enter with the address pointing to the first address 



ReadForceTable: 




push RP 


: set the ro 


srp #ForceTable2 


Id SKIPRADIO.#0FFH 


; turn off the radio 


.IF E21 




xor P1 ,#00000001 B 


; Kick the external dog 


.ELSE 


WDT 


; KICK THE DOG 


.ENDIF 




Id forcetemp,#14d 


; set the number to do 


Id forceaddress,#ForceOHi 


; set the start address 


ReadMemTransfer: 




call READMEMORY 


; read the value 


Id @f orceaddress . MTEMPH 


; get the value 


inc forceaddress 


Id @forceaddress,MTEMPL 




inc forceaddress 




.IF E21 




xor P1 ,#00000001 B 


; Kick the external dog 


.ELSE 




WDT 


; KICK THE DOG 


.ENDIF 




. inc ADDRESS 


; set to the next address 


djnz forcetemp, ReadMemTransfer 


; loop till done 


pop RP 


jp ReadLimits 





TIMES OUT THE LEARN MODE 30 SECONDS 

DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 



LEARN: 



cp 


LEARNDB,#0E0H 


; test for in learn mode 


V 


uge,LearnStillSet 


; if set test erase timer 


clr 


ERASET 


; else clear the timer 


V 


EraseTestDone 


> 


tillSet: 






cp 


ERASET,#48d 


; test for the 6 seconds 


V 


hz, EraseTestDone 


; if not 6 sec keep testing 


inc 


ERASET 


; one shot 


Id 


LearnLed.#001111lib 


; turn off the led 


Id 


LEARNT,#OFFH 


; set the learn timer 


Id 


SKIPRADIO.#0FFH 


; turn oft the radio 


call 


CLEARCODES 


; clear the radio codes 


clr 


SKIPRADIO 


; turn back on the radio 



/I -so 



EraseTestDone: 
cp 

i r 

ret 

TurnOffLearn: 
Id 
Id 
ret 



LEARNT, #240d 
z.TurnOtfLearn 



LearnLed,#0011l1Hb 
LEARNT,#OFFH 



; test for 30 seconds timeout 
; if so turn off learn 



; turn off the led 
; set the learn timer 



WRITE WORD TO MEMORY - 
ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPH AND MTEMPL 
RETURN ADDRESS IS UNCHANGED 



WRITEMEMORY: 




push 


RP 


; SAVE THE RP m . 


srp 


#LEARNEE_GRP 


; set the register pointer 


call 


STARTB 


; output the start bit 


Id 


serial,#00110000B 


, set byte to enable write 


call 


SERIALOUT 


; output the byte 


and 


csport,#csl 


; reset the chip select 


call 


STARTB 


; output the start bit 


Id 


serial,#01000000B 


; set the byte for write 


or 


serial.address 


; or in the address 


call 


SERIALOUT 


output the byte 


Id 


serial, mtemph 


set the first byte to write 


call 


SERIALOUT 


output the byte 


Id 


serial, mtempl 


set the second byte to write 


. call 


SERIALOUT 


output the byte 


call 


ENDWRITE 


wait for the ready status 


call 


STARTB 


output the start bit 


Id 


serial,#O000OOO0B 


set byte to disable write 


call 


SERIALOUT 


output the byte 


and 


csport,#csl ; 


reset the chip select 


pop 


RP ; 


reset the RP 


ret 







READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

ADDRESS IS UNCHANGED 



READMEMORY: 

push RP ; 

srp #LEARNEE J3RP ; set the register pointer 



call 


STARTB 


; output the start bit 


Id 


serial,#10000000B 


; preamble for read 


or 


serial, address 


; or in the address 


call 


SERIALOUT 


; output the byte 


call 


SERIALIN 


; read the first byte 



Id 

call 
Id 

and 
pop 
ret 



mtemph, serial 

SERIALIN 

mtempl.serial 

csport,#csl 

RP 



; save the value in mtemph 
; read teh second byte 
; save the value in mtempl 
; reset the chip select 



WRITE CODE TO 2 MEMORY ADDRESS 

CODE IS IN RADIOIH RADIOIL RADI03H RADI03L 



WRITECODE: 



push 


RP 


srp 


#LEARNEE_GRP 


Id 


mtemph, RADIOIH 


Id 


mtempl, RADIOIL 


calf 


WRITEMEMORY 


inc 


address 


Id 


mtemph, RADI03H 


Id 


mtempl, RADI03L 


call 


WRITEMEMORY 


pop 


RP 


ret 





; set the register pointer 

; transfer radio 1 to the temps 

; write the temp bits 
; next address 

; transfer radio 3 to the temps 
, ; write the temps 
; return 



CLEAR ALL RADIO CODES IN THE MEMORY 



CLEARCODES 
push 
srp 
• Id 
Id 
Id 
Id 
Id 

CLEARC: 
call 
inc 
cp 

V 
clr 
clr 
Id 

call 
pop 
ret 



RP 

#LEARNEE_GRP 
RADIOl H,#OFFH 
RADIOl L,#OFFH 
RADIO3H,#0FFH 
RAD.IO3L f #0FFH 
address,#O0H 

WRITECODE 
aodress 

address, #AddressCoui iter 

ult, CLEARC 

mtemph 

mtempl 

address,#AddressApointer 

WRITEMEMORY 

RP 



; set the register pointer 

; set the codes to illegal codes 



; clear address 0 
; "AO" 

; set the next address 

; test for the last address of radio 

; clear data 

; clear address F 

; return 



START BIT FOR SERIAL NONVOL . 

ALSO SETS DATA DIRECTION AND AND CS 



STARTB: 

and csport.#csI 



; start by clearing the bits 

# 

; set port 2 mode output mode data 

; set the chip select 

; set the data out high 

; set the clock 

; reset the clock low 

; set the data low 

; return 



; reset the chip select 
; delay 

; set the chip select 

; set port 2 mode input mode data 

; read the port 
; mask 

; if bit is low then loop till we are done 

; reset the chip select 

; set port 2 mode forcing output mode 



and 


clkport,#c!ockl 


and 


dioport.#dol 


Id 


P2M,#(P2MJNIT+0) 


or 


csport,#csh 


or 


diopdrt,#doh 


or 


clkpori,#clockh 


and 


clkport t #clockl 


and 


dioport,#dol 


ret 





END OF CODE WRITE 



ENDWRITE: 
and 
nop 
or 
Id 

ENDWRITELOOP 

Id mtemp.dioport 
and 



csport,#csl 

csport,#csh 
P2M,#(P2M_INIT+4) 



and 

Id 

ret 



mtemp,#doh 
z.ENDWRITELOOP 
csport,#csf 
P2M.#(P2M_INIT+0) 



SERIAL OUT 

OUTPUT THE BYTE IN SERIAL 



SERIALOUT: 



. Id 


P2M,#(P2M_INIT+0) 


; set port 2 mode output mode data 


Id 


mtemp,#8H 


; set the count for eight bits 


SERIALOUTLOOP: 


rlc 


serial 


; get the bit to output into the carry 




nc.ZEROOUT 


; output a zero if no carry 


ONEOUT: 






or 


dioport,#doh 


; set the data out high 


or 


clkport,#clockh 


; set the clock high 


and 


c!kport,#clockl 


; reset the clock low 


and 


dioport f #dol 


; reset the data out low 


djnz 


mtemp.SERIALOUTLOOP 


; loop till done 


ret 




; return 


ZEROOUT: 






and 


dioport,#dol 


; reset the data out low 


or 


clkport.#clockh 


; set the clock high 


and 


clkport,#clockl 


; reset the clock low 


and 


dioport,#dol 


; reset the data out low 


djnz 


mtemp.SERIALOUTLOOP 


; loop till done 


ret 




; return 



# 



; SERIAL IN 

; INPUTS A BYTE TO SERIAL 



M 

m 



ru 



SERIALIN: 

Id P2M,#(P2MJNIT+4) 

Id mtemp,#8H 
SERIALINLOOP: 

or clkport,#clockh 

rcf 

push mtemp 

mtemp, dioport 
mtemp,#doh 
Z.DONTSET 



Id 

and 
set 

DONTSET: 
pop 
rlc 
and 
djnz 

ret 



mtemp 
serial 

clkport,#clockl 
mtemp.SERIALINLOOP 



Timerl Int: 

push 
SRP 
dec 

FINDTASK: 
tm 

. tm 



RP 

#TIMER 
TOEXT 



GROUP 



TASK04: 



or 
cp 

V 
or 

RadioOffSkip: 
ei 

pop 
iret 



T0EXT ( #OO000O01B 
n2,TASK1357EXIT 
TOEXT, #0000001 OB 
nz,TASK26 



IMR,#RadioOfflMR 
L_A_C,#042H 
uge f RadioOffSkip 
IMR,#RETURN_IMR 



rp 



; set port 2 mode input mode data 
; set the count for eight bits 

; set the clock high 
; reset the carry flag 
; save temp 
; read the port 
; mask out the bits 

; set the carry flag 

; reset the temp value 
; get the bit into the byte 
; reset the clock low 

; loop till done 
; return 



; TIMER UPDATE FROM INTERUPT EVERY .5mS 



; save the rp 



; test for odd numbers 
; if odd 

; test for 2 6 or 0 4 
; if 26 then jump 



; turn on the interrupt except the radio 
; test for the learn force limit mode 

; turn s-n the interrupt 



TASK26: 
or 
cp 

K 
or 

Radio260ffSkip: 
ei 

call STATEMACHINE 



IMR,#RadioOfflMR 
L_A_C,#042H 
uge t Radio260ffSkip 
IMR t #RETURNJMR 



pop 
iret 



rp 



; turn on the interrupt except the radio 
; test for the learn force limit mode 

; turn on the interrupt 



; do the motor function 
; return the rp 



AS4 



TASK1357EXIT 

or IMR,#RadioOfflMR ; turn on the interrupt except the radio 

CP L_A_C,#042H ; test for the learn force limit mode 

jr uge, Radiol 3570ff Skip 

or IMR,#RETURN_IMR ; turn on the interrupt 
Radiol 3570ff$kip: 
ei 

tm T0EXT,#O0000OO1 B ; test for state a 1 in bO 

jr z.ONEMS 

tm T0EXT,#O0000010B ; test for state a 1 in b1 

jr z.ONEMS 

call AUXLIGHT ; 
ONEMS: 

inc VACFLASH ; flash timer 

; tm P3 f #00000001 B ; test the protector input 

j r z,CountActive ; if zero count the time 

; cp ProtectorSwitch,#46d ; test for the min count 

; jr ult.ZeroProtectorCounter ; if less the zero counter 

; cp ProtectorSwitch,#54d ; test for the max count 

; jr ugt,ZeroProtectorCounter ; if greater zero the counter 

; clr RsTimer ; turn on the rs232 port 

; Id ProtectorSwitch,#OFFH ; one shot 

; jr ProtectorSwitchDone ; 
;CountActive: 

; tern ProtectorSwitch,#03FH ; test for the top 

; jr z, ProtectorS witch Done ; if so skip 

; inc ProtectorSwitch ; set the next value 

; cp ProtectorSwitch,#54d ; test for too long 

; jr nz f ProtectorSwitchDone ; if not then done 

Id ProtectorSwitch,#OFFH ; turn off till next pulse 

; jr ProtectorSwitchDone ; 

;ZeroProtectorCounter: 

; clr ProtectorSwitch ; clear the counter 

;ProtectorSwitchDone: 

srp #LEARNEE_GRP ; set the registe pointer 

dec AOBSTEST ; decrease the e jbs test timer 

jr nz,NOFAIL ; if the timer not at 0 then it didnot fail 

AOBSFAIL: 

Id AOBSSTATUS,#0FFh ; set the flag for a aobs 

Id AOBSTEST,#1 1 d ; if it failed reset the timer 

or AOBSF,#00000001 b ; set the failed flag bit 
NOFAIL: 

inc t125ms ; increment the 125 mS timer 

tern T0EXT,#000001 1 1 B ; test for the 1 1 1 

jp nz.TESTI 25 ; if not true then jump 
FOURMS: 

cp RPMONES ( #00H ; test for the end of the one sec timer 

jr z.TESTPERIOD ; if one sec over then test the pulses 

; over the period 

dec RPMONES ; else decrease the timer 

clr RPM_COUNT ; start with a count of 0 

jr RPMTDONE 



TESTPERIOD: 

cp RPMCLEAR,#OOH ; test the clear test timer for 0 

jr nz.RPMTDONE ; if not timed out then skip 

Id RPMCLEAR,#1 22d ; set the clear test time for next cycle .5 

cp RPM_COUNT;#50d ; test the count for too many pulses 

jr ugt.FAREV ; if too man pulses then reverse 

clr RPM_COUNT ; clear the counter 

jr RPMTDONE ; continue 

FAREV: 

Id FAULTCODE,#07h ; set the fault flag 

Id FAREVFLAG,#088H ; set the forced up flag 

and pO,# A LB A C WORKLIGHT ; turn off light 

Id REASON,#80H ; rpm forcing up motion 

call SET_AREV_STATE ; set the autorev state 

RPMTDONE: 

dec RPMCLEAR ; decrement the timer 

cp LIGHT1S,#00 ; test for the end 

jr z.SKIPLIGHTE 

dec LIGHT1 S ; down count the light time 
SKIPLIGHTE: 

inc R_DEAD_TIME 

cp RTO f #1 01 D ; test for the radio time out 

jr ult,DONOTCB ; if not timed out donot clear b 

clr BCODEFLAG ; else clear the b code flag 
DONOTCB: 

cp RsRto,#0FFH ; inc to the ff position 

jr z,SkipRsRtolnc ; 

inc RsRto 
SkipRsRtoInc: 

. inc RTO ; increment the radio time out 

jr nz.RTOOK ; if the radio timeout ok then skip 

dec RTO ; back turn 
RTOOK: 

TEST 125: 

cp t1 25ms,#1 25D ; test for the time out 

jr z,ONE25MS ; if true the jump 

cp t1 25ms,#63D ; test for the other timeout 

jr nz.N1 25 

call FAULTB 

cp RsTimer,#0FFH ; test for the end of the rs232 period 

jr z,SkipRs1Timerlnc ; if off skip increasing the counter 

inc RsTimer ; increase the RsTimer till FF 

cp RsTimer,#0FFH ; test for the end of the rs232 period 

jr z, SkipRsI Timerlnc ; if off skip increasing the counter 

inc RsTimer ; increase the RsTimer till FF 

cp RsTimer t #0FFH ; test for the end of the rs232 period 

jr z.SkipRsI Timerlnc ; if off skip increasing the counter 

inc RsTimer ; increase the RsTimer till FF 

cp RsTimer,#0FFH ; test for the end ol the rs232 period 

jr z.SkipRslTimerlnc ; if off skip increasing the counter 

inc RsTimer ; increase the RsTimer till FF 
SkipRslTimerlnc: 



N125: 



iret 


RP 










cp 


RsTimer,#OFFH 


* foci \ t~\T C\r\r\ f\4 4K»« rpOOO w^c~\ r i r\ r~i 

y lesi ior me eno ot me rs^o^ penoa 




z.SkipRs2Timerlnc 


; if off skip increasing the counter 


inc 


RsTimer 


, increase me hs I imer till rr 


cp 


RsTimer,#OFFH 


* tPQt for th»P onH of f he rc9^9 rvpriorl 
, icol lilt; cllU OI liitr (b^O<. ptrMUU 


V 


z,SkipRs2Timerlnc 


; if off skip increasing the counter 


inc 


RsTimer 


; increase the RsTimer tilt FF 


cp 


RsTimer,#OFFH 


tp^l for thp onH of thp tqP^P nprinH 
i i^oi iui Hi" ci iu ui lilt? idbOt tr t iuu 


V 


z.SkipRs2Timerlnc 


if off ckin inrroscinn too 001 micjr 
, ii uii or\ip ii i \*\ Cdoii i y nit; uuut Hui 


inc 


RsTimer 


inrrPAc.p thp R^Timpr fill FF 

II IU»I CQdC 11 IC 1 » O 1 II 1 ICI till II 


cp 


RsTimer,#OFFH 


tp«;t for thp pnH of thp rcP^P noriorl 
ivoi iwi u it; o i\j \ji nit; lo^o^ Uci iuu 


V 


2,SkipRs2Timerlnc 


if nff ^kin inrrp^Qinn trip rni inte> r 

ii \JH orvijj if i v^i cudl l iy lilt; L*L>UMltrl 


inc 


RsTimer 


increase the RsTimer till FF 


SkipRs2Timerlnc: 




inc 


P8Counter 


increase the min time counter 


cp 


P8Cbunter#0d 


ever 32 sec 


V 


nz.SkipTempStorage 




inc 


MinTimer 


increase timer 


tm 


MinTimer,#0001 1 11 1 B 


every 15 min 


V 


nz.SkipTempStorage 


cp 


MotorTempHi, PastTemp 


test for the change 


V 


z,SkipTempStorage 


if same do not change 


Id 


PastTemp.MotorTempHi 


save new value as past 


V 


nz.SkipTempStorage 


store the temp in nonvol 


Id 


ST A C K FLAG , #0 A A H ; 


save the temperature flag 



SkipTempStorage: 

tm P8Counter, #000001 1 1 B 

jr nz, SkipTempOperation 

cp STATE, #1d 

jr z, Running 

cp STATE, #4d 

jr z. Running 

tm P8Counter,#01 1 1 1 1 1 1 B 

jr nz.SkipTempOperation 



Idle: 



cp MotorTempHi, Temperature 

jr ule, SkipTempOperation 

Id TDifference, MotorTempHi 

sub TDifference, Temperature 

sub MotorTempLo, TDifference 

sbc MotorTempHi,#00d 

sub MotorTempLo.TDifference 

sbc MotorTempHi ,#00d 

jr SkipTempOperation 



every sec 

if not at a sec skip 

test for the up direction 

if so then running 

test for the down direction 

if so then running 

every 16 sec 

if no then skip decreasing T 

; test for the min temp 
; if motor cool skip decrease 
; read the motor temp and 
; subtract the 

; decrease the temperature 
; decrease the temperature 
; done 



Runnina: 

~cp FORCEJGNORE,#00 

jr nzJestForStall 

AddRunningNlumber: 

add MotorTempLo,#TempRunlncLo 

adc MotorTempHi, #TempRunlncHi 

jr SkipTempOperation 



; test for past force ignore 
; if not past test for a stall 

; ADD the temp increase 



TestForStall: 

cp RPM_ACOUNT,#02d 
jr uge,AddRunningNumber 

AddStaNNumber: 

add MotorTempLo.#TempSta!llncLo 
adc MotorTempHi,#TempStalllncHi 

SkipTempOperation: 



cp 


UpDown,#OFFH 


V 


z.UpDownSkipInc 


inc 


UpDown 


UpDownSkipInc: 


inc 


P5UTD 


call 


FAULTB 


clr 


t125ms 


inc 


DOG2 


di 




inc 


SDISABLE 


i r 


nz.DOl2 


dec 


SDISABLE 


D012: 




cp 


ONEP2,#00 


J r 


z, INCLEARN 


dec 


ONEP2 


INCLEARN: 




inc 


learnt 


cp 


learnt,#OH 




nz, LEARNTOK 


dec 


learnt 


LEARNTOK 




ei 




inc 


eraset 


• cp 


eraset, #OH 


j r 


nz, ERASETOK 


dec 


eraset 


ERASETOK 




pop 


RP 


iret 




; fault 


blinker 


FAULTB: 




inc 


FAULTTIME 


inc 


FAULTTIME 



cp 

jr 

Clr 
Clr 
CP 

j r 
cp 

i r 

clr 

NotTempFault: 
cp 



FAULTTIME,#090h 
ulLFIRSTFAULT 
FAULTTIME 
FAULT 

FAULTCODE,#4d 
nz. NotTempFault 
MotorTempHi,#DnSetMaxTemp 
uge. NotTempFault 
FAULTCODE 

FAULTCODE,#04h 
UGE.GOTFAULT 



test for any revs 



; ADD the temp increase 



; test for the max time 
; if so dont inc 



; increase the up to down flag 
; call the fault blinker 
; reset the timer 

; incrwease the second watch dog 

; count off the system disable timer 
; if not rolled over then do the 1.2 sec 
; else reset to FF 

; test for 0 

; if counted down then increment learn 
; else down count 

increase the learn timer 

test for overflow 

if not 0 skip back turning 



increase the erase timer 

test for overflow 

if not 0 skip back turning 



increase the fault timer 

increase the fault timer 

test for the end 

if not timed out 

reset the clock 

clear the last 

test for over temp 

if not skip testing for clear 

test for max temp 

still hot donot clear 



test for call dealer code 
set the fault 



TESTAOBSM: 
cp 

cp 
V 

1m 

V 
tm 

V 



□ 

rs 



fair 

I!! 

m 



Id 
K 

NOPULSE: 
tm 

jr 
cp 

K 
Id 

jr 

AOBSSH: 
cp 

Id 



STATE.#1d 

2,NOAOBSFAULT 

STATE, #4d 

2 , NOAOBS FA U LT 

AOBSF,#OOOOG001b 
z.NOAOBSFAULT 
AOBSF t #00000010b 
2, NOPULSE 

FAULTCODE,#03h 
GOTFAULT 

P3,#O000O010b 

n2,AOBSSH 

FAULTCODE,#01h 

2, GOTFAULT 

FAULTCODE,#01h 

FIRSTFC 

FAULTCODE, #02h 
2, GOTFAULT 
FAULTCODE,#02h 
FIRSTFC 



GOTFAULT: 

Id FAULT, FAULTCODE 

swap FAULT 

jr FIRSTFC 
NOAOBSFAULT: 

Clr FAULTCODE 
FIRSTFC: 

clr AOBSF 



FIRSTFAULT: 
cp 

jr 
Id 
cp 

i r 
cp 

i r 

tm 

jr 
Id 
ret 

BITONE: 
Id 

TESTSDI: 
ret 

NOFAULT: 
clr 



FAULT,#00 

2.NOFAULT 

FAULTFLAG,#OFFH 

LEARNT,#OFFH 

n2,TESTSDI 

FAULT, FAULTTIME 

ULE.TESTSDI 

FAULTTIME,#00001 000b 
ru, BITONE 

LearnLed,#01000000B 



LearnLed.#01111111B 



; test for door travel 

; and if so skip fault code 

; test tor door travel 

; and if so skip fault code 

; test for the skiped aobs pulse 

; if no skips then no faults 

; test for any pulses 

; if no pulses find if hi or low 

; else we are intermittent 

; set the fault 

; if same got fault 

; test the input pin 

; jump if aobs is stuck hi 

; test for stuck low in the past 

; set the fault 

; set the fault code 



; test for stuck high in past 
; set the fault 
; set the code 



; set the code 

; clear the fault code 
; clear flags 

; test for no fault 

; set the fault flag 

; test for not in learn mode 

; if in learn then skip setting 

» 

; test the 1 sec bit 
; turn on the led 



FAULTFL^G 



; turn off the led 



; clear the flag 



tm LearnLed,#01 OOOOOOB 

jr 2,LeaveLedSet 

Id Learn Led,#OOl 11111b 



LeaveLedSet: 
ret 



; test for fault blink on 
; turn off the led 



MOTOR STATE MACHINE 



ry 



STATEMACHINE: 


xor 


p0,#OO001O0Ob 


cp 


DOG2,#8d 


jP 


ugt.START 


cp 


STATE, #06d 


jP 


ugt. start 


jP 


z.stop 


cp 


STATE,#03d 


jP 


z.stari 


cp 


STATE,#OOd 


jP 


z.auto rev 


cp 


STATE ,#01 d 


jP 


z.up direction 


cp 


STATE,#02d 


jp 


z,up_position 


cp 


STATE, #04d 


jp 


z,dn_direction 


jp 


dn_position 



toggle aux output 

test the 2nd watchdog for problem 

if problem reset 

test for legal number 

if not the reset 

stop motor 6 

test for legal number 

if hot the reset 

test for autorev 

auto reversing 0 

test for up 

door is going up 1 

test for autorev 

door is up 2 

test for autorev 

door is going down 4 

door is down 5 



AUX OBSTRUCTION OUTPUT AND LIGHT FUNCTION 



AUXLIGHT: 
test_light_on: 



cp 


LIGHT_FLAG,#LIGHT 




i r 


z,dec_pre light 




cp 


LIGHT1S,#00 


; test for no flash 


jr 


2.N01S 


; if not skip 


cp 


LIGHTlS,#01d 


' test for timeout 


jr 


nz.NOlS 


if not skip 


xor 


p0,#WORKLIGHT 


toggle light 


clr 


LIGHT1S 


oneshoted 


cp 


FLASH_FLAG,#FLASH 




V 


nz,dec_j>re light 




decw 


FLASH_DELAY ; 


250 ms period 




nz,dec_pre light 


xor 


pO,#WORKLIGHT ; 


toggle light 


Id 


FLASH DELAY HI,#FLASH HI 


Id 


FLASH DELAY LO,#FLASH LO 




dec 


FLASH^COUNTER ; 




V 


nz,dec_pre light 




clr 


FLASH_FLAG ; 





dec_pre_light: 



cp 


LIGHT_TIMER_HI,#OFFH 


K 


2, exit light 


dec 


PRE_LIGHT 


V 


nz.exit light 


decw 


LIGHTJTIMER 


i r 


nz.exit light 


and 

it: 


pO,# A C LIGHT_ON 


ret 





test for the timer ignore 
if set then ignore 
dec 3 byte light timer 



if timer 0 turn off the light 
turn off the light 

return 



UJ 



y 

13 2 

Q 



AUTO REV ROUTINE 



FAREVFLAG,#088H 
nz.LEAVEREV 
pO,# A LB A C WORKLIGHT 



auto_rev; 
cp 
V 

and 

LEAVEREV 

.IF E21 

xor P1 ,#00000001 B 

.ELSE 

WDT 

.ENDIF 



call 
Id 

and 

di 

decw 
decw 
ei 



; test for the forced up flag 
; turn off light 

; Kick the external dog 
; KICK THE DOG 



HOLDFREV ; hold off the force reverse 

LIGHT_FLAG.#LIGHT ; force the light on no blink 

p0,# A LB A C MOTOR_UP A & # A C MOTOR_DN ; disable motor 



AUTO_DELAY 
BAUTO_DELAY 

nz.arswitch 



; wait for .5 second 
; wait for .5 second 

; test switches 



or 
Id 
JP 

arswitch: 
cp 

Id 

cp 

IP 
Id 
cp 
JP 

_auto_rev: 
ret 



exit 



p0,#00001000b 
REASON,#40H 
SetUpDirStateNoTemp 

WIN_FLAG,#O0h 

z,exit__auto_rev 

REASON,#00H 

SW_DATA,#CMD_SW 

z,SET_STOP_STATE 

REASON,#10H 

RADIO_CMD f #0AAH 

z,SET_STOP_STATE 



; set aux output for FEMA 

; set the reason for the change 

; set the state 

test for window active 
if inactive- skip commands 
set the reason to command 
test for a command 
if so then stop 

set the reason as radio command 
test for a radio command 
if so the stop 

return 



HOLDFREV: 
Id 
Id 
clr 
ret 



RPMONES,#244d 
RPMCLEAR.#122d 
RPM COUNT 



; set the hold off 

; clear rpm reverse .5 sec 

; start with a count of 0 



A'(>t 



DOOR GOING UP 



up_direction: 
.IF 
xor 

.ELSE 
WDT 
.ENDIF 
cp 

K 
ret 

UpCcntinue: 
call 
Id 

and 
cp 

v 

inc 
or 
cp 
V 



E21 

P1, #0000000 1B 



OnePass, STATE 
z.UpContinue 



UPON: 

or 

UPOFF: 
cp 

l r 
cp 

i r 

Id 

SKIPUPRPM: 
cp 

TEST 



_UP_FORCE: 
di 

dec 
dec 

ei 

j r 
di 

push 
push 
sub 
sbc 
tm 

pop 
pop 

ei 

failed_jjp_rpm 
Id 
jP 



HOLDFREV 
LIGHT_FLAG,#LIGHT 
p0,# A LB A C MOTOR_DN 

MOTDEL,#0FFH 
z.UPON 
MOTDEL 
p0,#LIGHT_ON 
MOTDEL,#20d 
ule.UPOFF 

p0,#MOTOR_UP A | #LIGHT_ON 

FORCEJGNORE,#01 

nz.SKIPUPRPM 

RPM_ACOUNT,#02H 

ugt,SKIPUPRPM 

FAULTCODE,#06h 

FORCE_IGNORE,#00 
nz,test_up_sw_pre 



RPM_TIME_OUT 
BRPM_TIME_OUT 

z,failed_up_rpm 

UP_FORCE_LO 
UP_FORCE_HI 

UP_FORCE_LO,RPM_PERIOD_LO 
UP_FORCE_Hl f RPM_PERIOD_HI 
UP_FORCE_HI,#1 0000000B 
z,test_up_sw_pop 
UP^FORCE^HI 
UP FORCE LO 



REASON, #20H 
SET STOP STATE 



; Kick the external dog 

; KICK THE DOG 

; test tor memory read yet 



; hold off the force reverse 
; force the light on no blink 
; disable down relay 

; test for done 

; if done skip delay 

; increase the delay timer 

; turn on the light 

; test for 40 seconds 

; if not timed 

; turn on the motor and light 

test fro the end of the force ignore 
if not donot test rpmcount 
test for less the 2 pulses 



; test timer for done 

; if timer not up do not test force 



; decrease the timeout 
; decrease the timeout 



; turn off the interrupt 
; save the force setting 



test high bit for sign 

if the rpm period is ok then switch 

reset the force setting 



set the reason as force 



test_up_sw_pre: 


dec 


FORCE_PRE 


tm 


FORCE_PRE,#00000001 B 




nz,test_up_sw 


di 




dec 


FORCE IGNORE 


dec 


BFORCEIGNORE 


V 


test_up_sw 


test_up_sw _pop: 


pop 


UP_FORCE_HI 


DOD 


UP FORCE LO 


ei 




test_up_sw: 




ei 




CD 


LAC #044 H 


ir 


2 oet sw 


cp 


POSITION HI,#07FH 




nzTESTUPN 


CD 


POSITION i n aon 




z.UPLIM 


TESTUPN- 




di 




push 


POSITION LO 


push 


POSITION - HI 


sub 


POSITION 1 O 1 IP MM 1 D 




POSITION Ml 1 IP 1 IM ~MI 
ruoi t iv^in ni,ur L-iivi n I 




POSITION Ml i*OFFM 
i uoi i ivin n i.frurr n 


ir 
J 1 


7 UP 1 IM SPT 


DOD 


POSITION HI 


DOD 


POSITION LO 


ei 




jr 


get sw 


UP LIM SET* 




pop 


POSITION HI 


pop 


POSITION_LO 


ei 




UPLIM: 




Id 


REASON.#50H 


JP 


SET_UP_POS_STATE 


get_sw: 




cp 


WIN_FLAG f #00h 


j r 


z.test up time 


Id 


REASON,#10H 


cp 


RADIO CMD,#0AAH 


JP 


2.SET STOP STATE 


Id 


REASON,#00H 


cp 


SW_DATA,#CMD_SW 


K 


ne.test up time 


jP 


SET_STOP_STATE 


test up time: 




Id 


REASON,#70H 


decw 


MOTORJTIMER 



; dec the prescaler 
; test for odd 12 
; if odd skip 



; reset the force setting 



; enable interrupt 

; test for learning up limit 

; if so skip testing the limit 

; test for the middle range 

; if not test the up limit normal 

; test for the limit 

; if so then jump 



find the difference from position 
test for a within 256 of after limit 

; reset the position 

; if not at the limit test switches 
; reset the position 



; set the reason as limit 



; test for the flag active 
; if inactive skip command 
; set the radio command reason 
; test for a radio command 
; if so stop 

; set the reason as a command 
; test for a command condition 



; set the reason as a time out 
; decrement motor timer 



• 



ru 
nJ 

Si 



JP 

exit_up_dir: 
ret 



z,SET_STOP_STATE 



; return to caller 



DOOR UP 



up ^position: 
.IF 
xor 
.ELSE 
WDT 
.ENDIF 
cp 
jr 

and 



LEAVELIGHT 
Id 

UPNOFLASH 
and 
cp 

cp 

i r 

Id 
cp 

jr 
Id 
cp 
jr 

UpPosRet: 
. ret 

SETDNDIRSTATE 



E21 

P1 ,#00000001 B 



FAREVFLAG,#088H 
nz, LEAVELIGHT 
pO,# A LB *C WORKLIGHT 
UPNOFLASH 



LIGHT_FLAG,#00H 

pO,# A LB A C MOTOR_UP A & #*C 
SW_DATA,#LIGHT_SW 
z,work_up 

UpDown,#UpDownTime 
ult.UpPosRet 
REASON,#tOH 
RADIO_CMD,#0AAH 
z.SETDNDIRSTATE 
REASON,#00H 
SW_DATA,#CMD_SW 
z.SETDNDIRSTATE 



Id 
JP 

work_up: 
clr 
xor 
Id 

up_pos_ret: 
ret 



ONEP2,#10D 
SET DN DIR 



STATE 



SW_DATA 
pO,#WORKLIGHT 
LIGHT jriMER_HI,#OFFH 



DOOR GOING DOWN 



; Kick the external dog 
; KICK THE DOG 
; test for the forced up flag 
; turn off light 

; skip clearing the flash flag 

; allow blink 

MOTOR_DN ; disable motor 
light sw debounced? 

test for the direction delay 

; set the reason as a radio command 
; test for a radio cmd 
; if so start down 
; set the reason as a command 
; command sw debounced? 
; if command 



; set the 1.2 sec timer 



; toggle work light 
; set the timer ignore 

; return 



dn direction: 



.IF E21 

xor P1 ,#00000001 B 

.ELSE 

WDT 

.ENDIF 

cp One Pass, STATE 



; Kick the external dog 

; KICK THE DOG 

; test for memory read yet 



CI 



V 
ret 

DownContinue 
cp 
jr 

push 
srp 
.IF 
Id 
Id 
tm 

L109P5 

tm 



z.DownContinue 



L10: 



L9P5: 



L86: 



L6: 



L8: 



L_A_C,#044H 
ule,NORM_DN 
rp 

#FORCE_GRP 
P5BlockFlag 
DNJJM_H!,position_hi 
DN_LIM_LO,positionJo 
P0,#O01OOOO0B 
nz,L86 

P0,#OO01O0O0B 
jr nz,L9P5 

sub DN_LIM_LO,#L10Lo 
sbc DNJJM_HI,#L10Hi 
jr GotLimitPosition 

sub DN_L!M_LO,#L9P5Lo 
sbc DN_LIM_HI,#L9P5Hi 
jr GotLimitPosition 

tm P0,#O001O0O0B 

jr nz,L8 

sub DNJJM_LO,#L6Lo 

Sbc DN_LIM_HI,#L6Hi 

jr GotLimitPosition 

sub DN_LIM_LO,#L8Lo 
sbc DN_LIM_Hi,#L8Hi 
jr GotLimitPosition 



.ELSE 
Id 
Id 

.ENDIF 
GotLimitPosition 



DNJJM_HI,position_hi 
DN_LIM_LO,positionJo 



DNON: 



pop 


*P 


I DN: 




call 


HOLDFREV 


clr 


FLASH FLAG 


Id 


LIGHT FLAG,#LIGHT 


and 


pO,# A LB A C MOTOR UP 


cp 


MOTDEL,#0FFH 


V 


z.DNON 


inc 


MOTDEL 


or 


pO.#LIGHT ON 


cp 


MOTDEL,#20d 




ule.DNOFF 



; Durring setup move the 
; present position into the 
; limit while traveling down 



test for 10-9.5 or 8-6 
gear reduction 

; test for 10 vs 9.5 



; subtract .5 inches 

; subtract .5 inches 

; test for 10 vs 9.5 
; subtract .5 inches 

; subtract .5 inches 



DNOFF: 



or pO,#MOTORJDN A | #LIGHT_ON 



; hold off the force reverse 

; turn off the flash 

; force the light on no blink 

; turn off motor up 

; test for done 

; if done skip delay 

; increase the delay timer 

; turn on the light 

; test for 40 seconds 

; if not timed 



; turn on the motor and light 



m 



is J 

03 

y 

C3 

Ul 



fas? 

pi 



cp 

i r 

cp 

i r 

Id 

SKIPDNRPM: 
cp 
K 

TEST_DOWN 
di 

dec 
dec 
ei 

jr 
di 

push DN 

push DN 

sub DN" 

sbc DN 

tm DN 

pop 
pop 

ei 

failed_dn_rpm: 
cp 

cp 

i r 

cp 

i r 

StoreUpLimError: 



FORCE_IGNORE.#01 
nz.SKIPDNRPM 
RPM_ACOUNT.#02H 
ugt.SKIPDNRPM 
FAULTCODE.#06h 

FORCE_IGNORE.#00 
nz,test_dn_sw _pre 
FORCE. 

RPM_TIME_OUT 
BRPM TIME OUT 



z,failed_dn_rpm 

FORCE_LO 
FORCE_HI 

FORCE_LO,RPM_PERIOD_LO 
>ORCE_HI,RPM_PERIOD_HI 
_FORCE_HI,#1 OOOOOOOB 
z,test_dn_sw_pop 
DN_FORCE_HI 
DN FORCE LO 



L_A_C,#47h 
nz.NoStoreDown 
AOBS_FLAG.#01h 
z.NoStoreDown 
ST ATE, #00 
nz.NoStoreDown 



clr 
clr 
sub 
sbc 
call 

NoStoreDown: 
Id 
IP 

test_dn_sw_pre: 
dec 
tm 

V 
di 

dec 
dec 

V 

test_dn_sw_pop: 



UP_LIM_HI 
UP_LIM_LO 
UP_LIM_LO.positio.n_lo 
UP_LIM_HI,position_hi 
FIND_WINDOW 



REASON,#20H 
SET AREV STATE 



FORCE PRE 

FORCE>RE,#00000001 B 
nz,test_dn_sw 

FORCE JGNORE 
BFORCE_IGNORE 
test dn sw 



test_dnj 



pop 
pop 
ei 

dn__sw: 
ei 
cp 



DN 
DN 



FORCE 
FORCE 



HI 
LO 



test fro the end of the force ignore 
if not donot test rpmcount 
test for less the 2 pulses 



; test'timer for done 

; if timer not up do not test force 



; decrease the timeout 
; decrease the timeout 



; save the value 



test high bit for Sign 

if the rpm period is ok then switch 

reset the value 



; test for the state for storage 

; if not then continue 

; test for the pass point set 

; if passed donot set the limit 

; test for past state 0 

; if past 0 donot set the limit 



get the - of the count 

; find the window 

; set the reason as force 
; set the state 

; dec the prescaler 
; test for odd 12 
; if odd skip 



L_A_C,#044H 
ugt,ca!1_sw_dn 



; reset the value 



; turn on the interrupt 

; test for the auto position setting 

; if so skip testing limit 



03 



Q 

m 
b 

pi 
M 

pas. 
ft 5 



cp 
V 

di 

push 
push 
sub 
sbc 
cp 
jr 

pop 

POP. 

ei 

DN_LIM_SET: 
pop 
pop 
ei 

DOWNLIM: 
IF 
cp 

i r 

.ENDIF 

cp 

jr 

cp 

jr 

dn_lim_slop: 
Id 
cp 

Id 

TESTRADIO: 
cp 

jr 
cp 

jr 
Id 

TESTFORCEIG 
cp 

jr 
Id 

jp 

NOAREVDN: 
and 
IP 

call_sw_dn: 
cp 

jr 
Id 



AOBSSTATE.#00 
nz,call_sw_dn 



position_lo 
position_hi 
position_lo.dn_lim_lo 
position_hi,dn_lim_hi 
position_hi,#00 
z ;dn_lim_set 

position_hi 
position_lo 

call_sw_dn 

POSITION_HI 
POSITION . LO 



DownToLimits 

CMD_DEB,#OFFH 
z,dn_lim_stop 



AOBSSTATE,#00 
nz.AOBSFUNCTION 
AOBS_FLAG,#00 
z.AOBSERROR 

REASON,#50H 
CMD_DEB.#OFFH 
nz, TESTRADIO 
REASON,#90H 
TESTFORCEIG 

LAST_CMD,#O0 
nz.TESTFORCElG 
BCODEFLAG,#077H 
nz.TESTFORCElG 
REASON,#OAOH 

FORCE_IGNORE,#OOH 
z.NOAREVDN 
REASON,#60h 
SET_AREV_STATE 

pO,# A LB A C MOTOR_DN 
SET_DN_POS_STATE 

WIN_FLAG,#OOh 
z,test_dn_time 
REASON,#10H 



; test for looking at the zeroer 

; save the position 

; find the difference from position 

t 

; test for a within 256 of after limit 

; reset the position 

; if not at the limit test radio 
; reset the position 



; test for the command held 
; if so skip aobs 



; test for the finish of the counter 
; AOBS happened near the limit 
; test for the flag for pass point 
; error reverse 

; set the reason as a limit 
; test for the switch still held 

; closed with the control held 



test for th< * last command beir ; radio 

if not test force 

test for the b code flag 

set the reason as b code to limit 

test the force ignore for done 
a rev if limit before force enabled 
early limit 
set autoreverse 



set the state 

test for window active 

if inactive then skip command 

set the reason as radio command 



• # 



cp 


RADIO CMD,#OAAH 


' t o c t for a raHiA f*f\TY\rv\^r\r4 

, icoi lui ck iduiu cornrnano 


jp 


z.SET AREV STATE 


; if so arev 


Id 


REASON,#00H 


set the reason as command 


cp 


SW DATA,#CMD SW 


i test for command 


jp 


z,SET_AREV_STATE 




test dn time: 






Id 


REASON,#70H 


; set the reason as timeout 


decw 


MOTOR TIMER 


\ decrement motor timer 


jp 


z.SET AREV STATE 




cp 


OBS_FLAG,#0CCH 


, lest tne flag tor count 


jr 


nz,exit_dn_dir 


, ii noi men exit 


AOBSFUNCTION: 




.IF 


AOBSBypass 


' if tho anhc ran ho KunoccaW 4rAm 

, ii nit; auub uoii dc uypdobcu irom 
; a held command or held B code 


cp 


LAST CMD,#00 


* loci iAr 4fo A I t» 4 ^n/"s m m 'tn^ ir/s m m^iA 

, ie5>i lor ine lasi commano irom raoio 


V 


z.OBSTESTB 


, ii idol OUl IIIMcti IQ WdS d lad JO IBS! D 


cp 


CMD DEB,#OFFH 


; test tor the command switch holding 


V 


nz.OBSAREV 


t ii ine commana switcn is not holding 
■ do trip AtitorAv/ 


ret 




• r^thoru/icc clfir\ 
, UllltriWIbt: oMp 


.ENDIF 


OBSAREV: 






Id 


FLASH FLAG,#OFFH 


• cot flam 
i ocl >>dy 


Id 


FLASH COUNTER.#20 


; set for 1 0 flashes 


Id 


FLASH DELAY HI,#FLASH HI 


; set for .5 Hz period 


Id 


FLASH DELAY LO,#FLASH LO 


Id 


REASON.#30H 


; set the reason as autoreverse 


jP 


SET_AREV_STATE 


■ 


OBSTESTB: 






cp 


BCODEFLAG,#077H 


; test for the b code flag 


V 


nz.OBSAREV 


* if nnt h rnHp thpn arow 
i ii i iui u uuuc uicii di cv 


exit_dn_dir: 






. ret 




; return 


AOBSERROR: 






Id 


REASON,#0F0h 


• cot tHo roaenn ac nr% nocc r\r*int 
, scl lilt; ivaoUH di> rio pdbb pull 11 

i 


jp 


SET_AREV_STATE 


* 
i 


DOOR DOWN 




• 

dn_position: 






.IF 


E21 




xor 


P1 ,#00000001 B 


; Kick the external dog 


.ELSE 




WDT 




; KICK THE DOG 


.ENDIF 






cp 


FAREVFLAG,#088H 


; test for the forced up flag 


jr 


nz.DNLEAVEL 


and 


pO,# A LB A C WORKLIGHT 


; turn off light 


K 


DNNOFLASH 


; skip clearing the flash flag 


DNLEAVEL: 






Id 


LIGHT_FLAG,#00H • 


; allow blink 


DNNOFLASH: 






and 


pO,# A LB A C MOTOR_UP A & # A C MOTOR DN ; disable motor 


cp 


SW_DATA,#LIGHT_SW 


; debounced? light 



/!-£>€ 



(i 



W 
Stiff 

i.-2 
P 



jr 


z,work_dn 


cp 


UpDown,#UpDownTime 


jr 


ult.DnPosRet 


Id 


REASON,#10H 


cp 


RADIO CMD,#OAAH 


k 


z.SETUPDIRSTATE 


Id 


REASON, #OOH 


cp 


SW DATA.#CMD SW 


jr 


z.SETUPDIRSTATE 


DnPosRet: 




ret 




SETUPDIRSTATE: 


Id 


ONEP2,#10D 


jP 


SET_UP_DIR_STATE 


work dn: 




clr 


SW DATA 


clr 


RADIO CMD 


xor 


pO,#WORKLIGHT 



Id 

dn_pos_ret: 
ret 



LIGHT TIMER HI,#OFFH 



STOP 



; test for the .5 seconds direction 



; set the reason as a radio command 
; test for a radio command 
; if so go up 

; set the reason as a command 
; command sw pressed? 
; if so go up 



; set the 1 .2 sec timer 



; toggle work light 
; set the timer ignore 

; return 



stop: 

.IF 
xor 
.ELSE 
WDT 
.ENDIF 
cp 
V 

and 
LEAVESTOP: 
Id 

and 

cp 

cp 

Id 

cp 

ip 

Id 

cp 
JP 

StopPosRet: 
ret 

work_stop: 
clr 
clr 



E21 

P1 ,#00000001 B 



FAREVFLAG t #088H 
nz.LEAVESTOP 
pO,# A LB A C WORKLIGHT 



; Kick the external dog 
; KICK THE DOG 
; test for the forced up flag 
; turn off light 



LIGHT_FLAG,#00H ; allow blink 

pO,# A LB A C MOTORJJP *& # A C MOTOR_DN ; disable motor 
SW_DATA,#LIGHT_SW 
z,work_stop 

UpDown,#UpDownTime 
ult.StopPosRet 



; debounced? light 
; test for the .5 seconds direction 



REASON,#10H 
RADIO_CMD,#OAAH 
z , SET_DN_D I R_ST AT E 
REASON,#00H 
SW_DATA,#CMD_SW 
z.SET DN DIR STATE 



SW_DATA 
RADIO CMD 



; set the reason as radio command 
; test for a radio command 
; if so go down 

; set the reason as a command 
; command sw pressed? 
; if so go down 



xor 
Id 



.stop_ret: 



pO,#WORKLIGHT 
LIGHT_TIMER_HI,#OFFH 



ret 



SET THE AUTOREV STATE 



S E T_ A R E VST AT E : 



NOSD: 



clr 

clr 

di 

cp 

V 

add 
adc 
Id 
Id 

Id 
Id 

ei 
jP 



SW_DATA 
RADIO_CMD 

L_A_C,#47H 
nz.NOSD 

P32_MAX_LO,ForceAddLo 
P32_MAX_HI,ForceAddHi 
DN_FORCE_HI,P32_MAX_HI 
DN_FORCE_LO,P32_MAX_LO 

STATE,#AUTO_REV 
BSTATE,#AUTO_REV 

SET ANY 



; toggle work light 
; set the timer ignore 

; return 



; clear the switch data 

; clear the radio command 

; test for the store force data 

; ADD the force adder 

; transfer the force 



; if we got here, then reverse motor 
; if we got here, then reverse motor 



SET THE STOPPED STATE 



Temp_SET_STOP_STATE : 

Id FAULTCODE,#04d 
jr SetStopStateNoWrite 

Mem_SET_STOP_STATE : 

Id FAULTCODE,#05D 

SetStopStateNoWrite: 



Id 

clr 
clr 

di 
Id 
Id 
ei 
JP 



MinTimer,#01 D 
SW_DATA 
RADIO CMD 



STATE,#STOP 
BSTATE ? #STOP 

SetAnyNoWrite 



; set the fault blink 



; set the fault blink 



; set next write min out 
; clear the switch data 
; clear the radio command 



SET_STOP_STATE: 



Id 

clr 

clr 

di 
Id 



MinTimer,#01 D 
SW_DATA 
RADIO CMD 



STATE,#STOP 



; set next write min out 
; clear the switch data 
; clear the radio command 



Id BSTATE,#STOP 
ei 

jp SET_ANY 



SET THE DOWN DIRECTION STATE 



SET_DNJDIR_STATE: 

°! r S W ^ ATA ; clear the switch data 

° „ RADIO CMD ; clear the radio command 

call TempMeasure ; measure the temperature 

di 

.IF ThermalProtectorFlag 

tm P2,#1 00OO00OB ; test for the switch state 

jr z.SkipDownThermalProtector ; skip if switch gnded 

Id REASON,#0B0H ; set the reason as thermal 

cp MotorTempHi,#DnSetMaxTemp ; test if we need to skip for max temc 

jr uge,Temp_SET_STOP_STATE 

.ENDIF 
SkipDownThermalProtector: 

Id STATE,#DN_DIRECTION ; energize door 

Id BSTATE,#DN_DIRECTION ; energize door 

ei 

clr FAREVFLAG ; one shot the f6rced reverse 

°P L_A_C,#042h ; test for learning the force and limits 

jp UGE,SET_ANY ; if S o then set the direction to down 

cp DNJJM_HI,#O0h ; test for stuck bits 

jr nz.TestSetDownBits ' ; 

cp DN_LIM_LO,#00h ; test for stuck bits 

jr nz.TestSetDownBits ; 

jp Mem_SET_STOP_STATE ; if the bits are stuck then stop unit 

TestSetDownBits: 

cp DN_LIM_HI,#OFFh ; test for stuck bits 

jr nz.DownBitsOk ; 

cp DN_LIM_LO,#0FFh ; test for stuck bits 

jr nz.DownBitsOk ; 

jp Mem_SET_STOP_STATE ; if the bits are stuck then stop unit 

Down Bit sOk: 

cp FA U LTC OD E , #5d ; test for memory fault 

jr nz.DnSkipMemFauttClear ; if so then clear 

clr FAULTCODE 
DnSkipMemFaultClear: 
di 

push DNJJM_HI ; save the limits 

push DNJJM_LO 

sub DN_LIM_LO,POSITION_LO ; find the difference from position 

Sbc DN_LIM_HI,POSITION_HI ; 

cp DNJJM_HI,#00 ; test for a 256 < number 

jr z.POSJDNJJM 

pop DN_LIM_LO ; reset the limit 

pop DN_LIM_HI 

ei 



jp SET_ANY 
POS DN LIM: 



pop 
pop 
ei 
K 



dnjjm_lo 

DNJJM_HI 

SetUpDirStateNoTemp 



; reverse the direction if too close 
; to the down limit 
; reset the limit 



SET THE UP DIRECTION STATE 



SET_UP_DIR_STATE: 

call TempMeasure 
SetUpDirStateNoTemp: 



clr 
clr 
di 



SW_DATA 
RADIO CMD 



.IF ThermalProtectorFlag 

tm P2,#10000000B 

jr z.SkipUpThermalProtector 

cp STATE,#AUTO_REV 

jr z.SkipUpThermalProtector 

Id REASON,#0B0H 

cp MotorTempHi,#UpSetMaxTemp 

jp uge,Temp_SET_STOP_STATE 

.ENDIF 
SkipUpThermalProtector: 

Id STATE,#UP_DIRECTION 
Id BSTATE,#UP_DIRECTION 
ei 
cp 
jr 

RefreshUpLimit 
cp 

i r 

cp 

k 
jp 

TestSetUpBits: 
cp 

V 
cp 

V 
JP 

UpBitsOk: 

cp 

jr 
clr 



L_A_C,#042H 
UGE,SET_ANY 

UPJJM_HI,#O0h 

nz.TestSetUpBits 

UP_LIM_LO,#00h 

nz.TestSetUpBits 

Mem_SET_STOP_STATE 

UP_LIM_HI,#OFFh 
nz,UpBitsOk 
UP_LIM_LO,#0FFh 
nz, UpBitsOk 

Mem_SET_STOP_STATE 

FAULTCODE,#5d 

nz,UpSkipMemFaultClear 

FAULTCODE 



; measure the temperature 

; clear the switch data 
; clear the radio command 



; test for the switch state 
; skip if switch gnded 

; if the state is autoreverse allow up 

; set the reason as thermal 

; test if we need to skip for max temp 



UpSkipMemFaultClear: 

jr SET_ANY 



test for learning the limits 
skip testing the limit if learning 

test for stuck bits 

test for stuck bits 

if the bits are stuck then stop unit 

test for stuck bits 

test for stuck bits 

if the bits are stuck then stop unit 

test for memory fault 
if so then clear 

set the direction 



A-7Z 



y 

P 
U1 

IU 

0 



SET THE UP POSITION STATE 



SET UP POS STATE: 



UPNS: 



clr 
clr 
Id 

di 
cp 
jr 

add. 
adc 
Id 
Id 

Id 
Id 

ei 
K 



SW_DATA 

RADIO_CMD 

MinTimer,#01D 



L_A_C.#49h 
nz.UPNS 



P32_M AX_LO. ForceAddLo 
P32_MAX_HI,ForceAddHi 
UP_FORCE_HI,P32_MAX_HI 
UP_FORCE_LO.P32_MAX_LO 

STATE,#UP_POSITION 
BSTATE.#UP_POSITION 

SET ANY 



Clr 
clr 
Id 

di 
Id 
Id 
ei 
cp 
jr 

inc 



SW_DATA 

RADIO_CMD 

MinTimer,#OlD 



STATE ,#DN_POSmON 
BST ATE.#DN_POS IT ION 

WIN_FLAG,#00 
nz,SET_ANY 
WINFLAG 
SET ANY 



; clear the switch data 
; clear the radio command 
; set next write min out 



; test for the store 

; ADD the adder 
; transfer the force 



; SET THE DOWN POSITION STATE 

SET DN POS STATE: 



; clear the switch data 
; clear the radio command 
; set next write min but 



; load new state 
; load new state 

; test for the win 
; if on skip 

; else turn on the window 



SET ANY STATE 



SET_ANY: 

clr UpDown 

Id STACKFLAG,#OFFH 
SetAnyNoWrite: 

cp L_A_C,#42H 

jr uge.SkipReadAny 

SkipReadAny. 

clr AOBS_FLAG 

clr AOBSF 



; clear the direction timer 
; set the flag 

; test for in learn mode 
; if so skip reading force 



; clear the flag 

; clear any pending faults 



) 



clr 
clr 
clr 
clr 
cp 

V 
clr 

clr 

clr 

clr 

SkipForceClear 
clr 
inc 
di 
clr 
Id 
Id 
Id 
Id 
Id 
Id 
ei 

ClearRadioCmd 
clr 
clr 
Id 
Id 
Id 
Id 
Id 
Id 
Id 

and 



AOBSSTATE 
AOBSRPM 
OBS_FI_AG 
AOBSB 
L_A_C,#4CH 
z.SkipForceClear 
MAX_F_HI 
MAX_F_LO 
P32_MAX_LO 
P32_MAX_HI 

SW_DATA 
L_A_C 

RPM_COUNT 

AUTO_DELAY_HI,#AUTO_HI 
AUTO_DEI_AY_LO,#AUTO_LO 
BAUTO_DELAY_HI,#AUTO_HI 
BAUTO_DELAY_LO,#AUTO_LO 
FORCE_IGNORE,#ONE_SEC 
BFORCE_IGNORE,#ONE_SEC 



lightoff: 
lighton: 



clr 



RADIO_CMD 
RPM_ACOUNT 

LIGHT_TIMER_HI,#SET_TIME_HI 
LIGHT JTIMER_LO,#SET_TIME_LO 
PRE_LIGHT.#SETTIME_PRE 
MOTOR_TIMER_HI.#MOTOR_HI 
MOTOR_TIMER_LO,#MOTOR_LO 
STACKREASON, REASON 
LIGHTS.PO 

LIGHTS,#WORKLIGHT 
nz.lighton 

MOTDEL 



reset the state counter 
clear any past aobs count 



; test for tearing down dir 
clear the force reading 



; clear the switch data 

; set the LAC to the next state 

clear the rpm counter 

set the .5 second auto rev timer 

set the .5 second auto rev timer 

set the force ignore timer to one sec 
set the force ignore timer to one sec 



one shot 

clear the rpm active counter 
set the light period 



save the temp reason 
read the light state 

if the light is on skip clearing 

; clear the motor delay 



ret 



THIS THE AUXILARY OBSTRUCTION INTERRUPT ROUTINE 



AUX_OBS: 

.IF E21 

and imr,#1 1 1 1 1 01 1 b 
.ELSE 

and imr,#11110111b 
.ENDIF 

Id AOBSTEST.#1lD 
or AOBSF,#0000001 OB 
Clr AOBSSTATUS 
iret 



; turn off the interupt for up to 500uS 

; turn off the interupt for up to 500uS 

; reset the test timer 
; set the flag for got a aobs 
; clear the aobs set state 
; return from int 



THIS !S THE MOTOR RPM INTERRUPT ROUTINE 
Direction for counter is the LSB of the state 



RPM: ; motor speed 

push rp ; save current pointer 

srp #RPM_GROUP ;point to these reg 

Id rpm_temp_hi,TOEXT ; read the timer extension 

Id rpmJempJo.TO ; read the timer 

tm IRQ,#0001 0000B ; test for a pending interrupt 

jr z.RPMTIMEOK ; if not then time ok 

RPMTIMEERROR: 

tm rpm _temp_lo,#1 0000000B ; test for timer reload 

jr z.RPMTIMEOK ; if no reload time is ok 

dec rpm_temp_hi ; if reloaded then dec the hi to resync 

RPMTIMEOK: 
.IF E21 

and imr,#1 1110111b ; turn off the interupt for up to 500uS 
.ELSE 

and imr,#1 1111011b ; turn off the interupt for up to 500uS 
.ENDIF 

Id rpm_2past_hi,rpm_past_hi " ; save the past for testing 

Id rpm_2pastJo ( rpm_past_lo ; 

Id rpm_past_hi,rpm_temp_hi ; transfer the present into the past 

Id rpm_pastJo,rpm_temp_lo ; 

Id rpm_diff_hi,rpm_2past_h< ; transfer the past into the difference 

Id rpm_diff_lo,rpm_2past_lo ; 

sub rpm_diff _lo,rpm_pastJo ; find the difference 

sbc rpm_diff_hi,rpm_past_hi 

tm rpm_diff_hi,#1 0000000b ; test for neg number 

jr z,RPM_TIME_FOUND ; if the time is correct then jump 

Id rpm_diff_hi,rpm _past__hi ; transfer the temp into the difference 

Id rpm_diffJo,rpm_past_lo ; 

sub rpmdiff Jo,rpm_2pastJo ; find the difference 

sbc rpm_diff_hi,rpm_2past_hi ; 
RPM_TIME_FOUND: 

M rpm_period_hi,rpm_diff_hi ; transfer the difference to the period 

I* rpm_period_lo,rpm_diff_lo ; 



Found the period test for range 



cp rpm_period_hi,#12D ; test for a period of at least 6.1 44 mS 

jp ult.SKIPC ; if the period is less then skip counting 

clr UpDown ; clear the direction timer 



Position counter 



cp STATE ,#1d ; test the up direction state 



A -7* 



jr z.DECPCOUNT ; if so then dec the counter 

cp STATE,#2d ; test the up direction state 

jr z.DECPCOUNT ; H so then dec the counter 

cp STATE, #6d ; test the STOP state 

jr z.DECPCOUNT ; if so then dec the counter 

INCPCOUNT: 

inc POSITION_LO ; increase the position counter low byte 

jr nz, POSDONE ; if done return 

inc POSITION_HI ; increase the position counter hi byte 

jr POSDONE 

DECPCOUNT: 

cp POSITION_LO,#00 ; test for the roll number 

jr z,DECPROLL ; if so the branch 

dec POSITION_LO ; decrease the position counter low byte 

jr POSDONE 
DECPROLL: 

dec POSITION_LO ; decrease the position counter low byte 

dec POSITION_HI ; decrease the position counter hi byte 

jr POSDONE 

POSDONE: 



Enable the interrupts 



ei 



Find the max force in the period 



cp FORCE_IGNORE,#00 ; test for the force ignore active 

jr nz,NOT_DELAY 

cp rpm _period_hi,MAX_F_HI ; test for a new max force 

jr ult,NOT_MAX ; if not the max force then skip updating 

cp rpm_period_lo,MAX_F_LO ; 

jr ult,NOT_MAX ; 
SaveHigher: 

Id MAX_ F_Hl t rpm_period_hi ; transfer the max force data 

Id MAX_ *_LO,rpm_period_lo ; 

cp L_A_C,#4BH I * est for ,earn limit and force 

jr ult t NOT_MAX ; if not then skip 

push RP ;settherp 

srp #ForceTable2 ; 

Id @forceaddress,MAX_F_H! ; save the value into table 

inc forceaddress ; 

Id @forceaddress,MAX_F_LO ; 

dec forceaddress ; 

pop RP 
NOT_MAX: 

tm POSITION_LO,#001 111b ; test for the 32th step 

jr nz,NOT_DELAY ; 

; transfer to direction if L-A-C > 44 

Id P32_MAX_HI 1 MAX_FJ-II ; transfer the value 

Id P32_MAX_LO t MAX_F_LO 
NOTJDELAY: 



Force table entry 



N4C: 



cp 

V 

cp 

clr 

clr 

dec 

dec 

cp 

F 
Id 

cp 

V 
cp 

i r 

clr 

clr 
inc 
inc 
cp 

i r 

Id 



L_A_C,#4CH 
nz,N4C 

POSITION_LO,#00 

nz,N4E 

MAX_F_HI 

MAX_F_LO 

ForceAddress 

ForceAddress 

ForceAddress,#ForceOHi 

uge,N4E 

ForceAddress,#ForceOHi 

L_A_C,#4EH 
nz,N4E 

POSITION_LO,#0FFH 

nz,N4E 

MAX_F_HI 

MAX_F_LO 

ForceAddress 

ForceAddress 

ForceAddress,#Force1 4Hi 

ule,N4E 

ForceAddress,#Force1 4Hi 



N4E: 



Look for the pass point 



cp 
V 

inc 
cp 
i r 

RPMOBS: 
Id 

AOBSRPMS: 
cp 
V 

inc 
V 

OBSBLOCK: 
INC 

AOBSDONE: 
cp 

V 
clr 

STATEOK: 
cp 

J r 
cp 

i r 

cp 



AOBSSTATE,#00 

z,AOBSRPMS 

AOBSRPM 

AOBSRPM,#MAXAR 

nz.AOBSRPMS 

OBS_FLAG,#0CCH 

AOBSSTATUS,^;^ 
nz.OBSBLOCK 
AOBSNB 
AOBSDONE 

AOBSB 

AOBSSTATE,#07 

ule,STATEOK 

AOBSSTATE 

AOBSSTATE,#00 
z.stateO 

AOBSSTATE, #01 
z, state 1 

AOBSSTATE, #02 



; test for the down direction 

; if not then skip around 

; test for the position to increment 

; if not then skip 

; clear the max to get max 

; for the position window 

; find the next address 

; test the range 
; if so skip 



test for the up direction learn 

if not then skip around 

test for the position to increment 

if not then skip 

clear the max to get max 

for the position window 

increment the pointer 

increment the pointer 

test for range 

if in range skip 

else force address 



; test for aobs ok 

; if so skip the rpm count time out 
; increment the timer counter 
; test for too many 
; if not skip 

; else set the flag for aobs 

; test for a obs blocked 

; if the protector is blocked the jump 

; increase the aobs not blocked distance 



; increase the aob blocked distance 

;test for the max state 
; if in bounds then continue 



; test for the state number 
; test for the state number 
; test for the state number 



cp 

V 
cp 

p 

cp 

v 

cp 

v 

state?: 

cp 

i r 

Id 
cp 

i r 

Id 

UpForceAdd: 
clr 
Clr 



z,state2 

AOBSSTATE,#03 
2.state3 

AOBSSTATE,#04 
2,state4 

AOBSSTATE,#05 
z, states 

AOBSSTATE,#06 
z,state6 

L_A_C,#4BH 

ule.NoForce Address 

Force Address ,#Fbrce1 Hi 

L_A_C,#4CH 

nz.UpForceAdd 

Force Address , # ForceO H i 

MAX_F_HI 
MAX F LO 



NoForce Address: 



clr AOBSRPM 

cp L_A_C,#42H 

jr uge,SkipFlagTest 

cp WIN_FLAG,#O0 

jr z.ClearPassPoint 



SkipFlagTest: 
cp 
i r 

ClearPassPoint: 
di 



STATE.#04d 
nz.SkipPassPoint 



clr POSITION_LO 
clr POSITION HI 



; test for the state number 
; test for the state number 
; test for the state number 
; test tor the state number 

; test for learn limits 

; set the force address 

; test for the down direction 

; set the force address 

; clear the max force 

; clear all rpm counts during 

; test for learn mode 
; if so winflag is useless 

; test for the first cycle 



; test for traveling down 

; if not the skip the pass point clear 



; clear the position reg 



ei 



SkipPassPoint: 



state4: 



Id AOBS_FLAG,#01d 

jr ASDONE 

cp AOBSB,#00 

jr TN1 



; set the flag for got pass point 



; test for not blocked 



state3: 



state6: 
state2: 

TN1: 



cp AOBSNB,#MlNAR ; test for the min blockage 

jr TN2 



cp AOBSNB,#00 ; test for not blocked 



k 
inc 

k 



z.STATEDONE 

AOBSSTATE 

STATEDONE 



; if still waiting loop 
; set the next state 



state5: 
state 1 : 

cp 

TN2: 

k 

ASDONE: 
inc 
clr 
clr 

V 

stateO: 

cp 

k 

push 

srp 

cp 

k 

clr 

Clr 

sub 

sbc 

call 

NOSTORE: 
di 

push 
cp 

k 

cp 
V 

negwin: 

cp 
V 

com 
WINTEST: 
cp 

k 

WINERROR: 
Id 

pop 
pop 

k 

WIN_SKIP: 
pop 
pop 
inc 

STATEDONE 



AOBSB.#MINAR 

ult.STATEDONE 

AOBSSTATE 
AOBSNB 
AOBSB 
STATEDONE 



; test for the min blockage 

; if not try again 

set the next state 
clear the not blocked 
clear the blocked 



AOBSB,#00 
2, STATEDONE 
rp 

#FORCE_GRP 

L_A_C,#47h 

nz,NOSTORE 

UP LIMJHI 

UPJJMJ.O 

UPJJM_LO,positionJo 

UPJJMJ-H.positionJii 

FINDJMNDOW 



; test for the first blockage 

; if no block skip 

; save the rp 

; set the new value 

; test for the state for storage 

; if not then continue 



; get the - of the count 
; find the window 



positionjo ; save the lo position 

WIN_FLAG.#00 ; test for the window being active 

z.WIN_SKIP ; if inactive skip 

position Jii,#00 ; test for pos or neg 

z.WINTEST ; jump if the value POS < 256 

position_hi,#OFFH ; test for < 256 

nz, WINERROR ; if not then a error 

positionjo ; neg the value 

position_lo,PWINDOW ; >mpare the pos value of window 

ULE,WIN_SKIP ; within then ok 



OBS_FLAG.#0CCH 
positionjo 

STATEDONE 



; set the flag for aobs 
; reset the position 
; reset the rp 
; done 



positionjo ; reset the position 

rp ; reset the rp 

AOBSSTATE ; set the next state 



i 



Look for the pass point end 



P 
□ 
03 

h 
m 



m 

NT 
n 

?S 5 



TULS: 

INCRPM: 
di 
inc 
inc 
ei 

SKIPC: 

di 
Id 
Id 



ei 

SKIPPEDGE: 
pop 



RPM_COUNT 
RPM ACOUNT 



rpm_time_out.#1 5D 
BRPM TIME OUT,#15D 



HP 



iret 



Find the window size from the up limit setting 
FIND WINDOW: 



; increase the rpm count 
; increase the rpm count 



; set the rpm max period as 30mS 
; set the rpm max period as 30mS 
; if rpm not updated by then reverse 



; return the rp 
; return 



S150D: 



S100D: 



cp 


UP LIM HI,#0FAh 


; test for the shortest distance 


i r 


UGT.S100D 


; if so set window to 100D 


cp 


UP LIM Hl t #0F8h 


; test for the mid distance 


i r 


UGT.S150D 


; if so then set the window to 1 SOD 


Id 


PWINDOW,#200D 


; set the window to 200D 


ret 






Id 


PWINDOW f #150D 


; set the window to 1 SOD 


ret 






Id 


. PW1NDOW,#100D 


; set the window to 1 0OD 


ret 







Read the force according to the position 



Read Force: 



push 


RP 


; set the RP 


srp 


#ForceTable2 




Id 


f orcetemp , POS IT ION_H I 


get the present position of the operator 


com 


forcetemp 


invert the number 


cp 


forcetemp,#10H 


test for the set to address 0 values 


i r 


uge.SetAddressOO 




inc 


forcetemp 


add 1 for address 


cp 


forcetemp,#ODH 


test for in range 



s 



c 



SetForce: 



rcf 

rlc 

add 

push 

di 

Id 

inc 

id 

add 

adc 

pop 

ei 

di 

Id 

inc 

Id 

add 
adc 



ei 

pop 

SkipForceRead: 
ret 



uge.SetAddressD 



forcetemp 

forcetemp,#ForceOHi 
forcetemp 

UP_FORCE_HI,@forcetemp 
forcetemp 

UP_FORCE_LO,@forcetemp 
UP_FORCE_LO,ForceAddLo 
U P_FOR C E_H I , Fo rce A dd H i 
forcetemp 



DN_FORCE_HI,@forcetemp 
forcetemp 

DN_FORCE_LO,<S)forcetemp 
DN_FORCE_LO.ForceAddLo 
DN__FORCE_HI,ForceAddHi 

RP 



if not set the top address 
# 2 

add the start address 
save value 

read the value 
save address 

add adder 

reset address 

read the value 

add adder 

then return 



SetAddressOO: 

clr forcetemp 
jr SetForce 



SetAddressD: 
Id 



forcetemp,#ODH 
SetForce 



; set the address 



; set the address 



Read the Limits 



ReadLimits: 
push 
srp 
Id 
Id 
call 
di 
Id 
Id 
ei 

Id 

call 

di 

Id 



#LEARNEE_GRP 
SKIPRADIO,#0FFH 
address,#AddressDownLimit 
READMEMORY 

DN_LIMJHI,mtemph 

DN_LIM_LO,mtempl 



address,#AddressUpLimit 
READMEMORY 



UP_LIM_HI,mtemph 



set the RP to LEARNEEJ3RP 
; turn off the radio 

; set non vol address to the down limit 
; read the value 

; recall from nonvolital 



; set non vol address to the up limit 
; read the values stored in memory 

; update from nonvolital 



c 



Id UP_LIM_LO,mtempl ; 
ei 

clr SKIPRADIO . turn on the radio 

P°P T> ; reset the RP 



Timer 2 Interrupt used either for RS232 or Wall control 
Rs232 is set to 4l6uS Wall control is set to 300uS 
Wall control state machine 
Status 

0 = If not low set gotswitch 

Switch from discharge to charge P3 = 1001 XXXX 
Test for hi after 4uS switch = open 
Test for hi after 30uS switch = light 
Test for hi after 300uS switch = learn 
Test for hi after 3mS switch = vacation 
Else switch = cmd 

Switch state to discharge P3 = 1 1 1 1 XXXX 
Switch state to neg charge if led is to be lit 
P3 -0110 XXXX 

Else 

Switch state to no charge P3 = 0000 XXXX 
Switch state to discharae 
Set Status to 0 



1 

10 

11 
15 



26 
29 



Timer2lnt: 



tm P2,#01000000B 
jr z.SkipLockRS232 
jr TestRs232 



;SkipLockRS232: 



cp 

I' 
cp 

TestRs232: 
cp 

jP 

call 

iret 



RsMode,#0232d 
z,TestRs232 
RsTimer,#0FFH 
z.TestSwitches 

TlMirror,#RsPeriod 

nz,SetRsPeriod 

RS232 



; test the RS232 only switch 
; if switch then just RS232 



; test for rs232 mode set 
; if set do 

; test the mode for RS232 Vs switches 
; if FF then test the switches 

; test the period 

; if set wrong then reset 

; call the routine 

; return 



TestSwitches: 

cp STATUS.#0FFH 
jp nz.SkipVacFlashing 



cp 



VACFLAG,#00H 



; test for the start position 

; if not skip testing vacation flashing 



; test for out of vacation 



jp z.SkipVacRashing ; if out don't blink 

tm VACFL*SH,#1 0000000B ; test for the 1 28mS 

jp z.SkipVacRashing ; jf out dor y t b | ink 

Id STATUS.#30D ; se t for the blink 

SkipVacFlashing: 

inc STATUS ; set to the next period 

cp Tl Mirror,#SwPeriod ; test the period 

jp nz.SetSwPeriod : if se t wrong then reset 

cp STATUS.#Od ; state jump table 

jp z.STATUSO 

cp STATUS, #1d 

jp Z.STATUS1 • 

cp STATUS,#10d • 

jp Z ; STATUS10 J 

cp STATUS,#11d \ 

jp Z,STATUS11 \ 

cp STATUS,#15d \ 

jp Z.STATUS15 \ 

cp STATUS,#26d \ 

jp Z.STATUS26 \ 

cp STATUS.#29d \ 

jp uge,STATUS29 ; 
StatusRet: 
iret 

STATUSO: 

tm PO,#1 1 0OOOOOB ; test for both inputs low 

jr z.SkipSettingGotSwl ; if low skip seting 

inc GotSwitch ; turn off the switches 

SkipSettingGotSwl : : US e hist to test resistors 

Id P01 M f #OOOO01OOB ; set mode p00-p03 out p04-p07out 

or PO,#1100000B ; turn both pins hi 

Id P01 M,#P01 MJNIT ; set mode p00-p03 out p04-p07in 

nop ; delay 

nop 

nop 

nop 

tm PO,#1 1 0OOOOOB ; test for both inputs low 

jr z,SkipSettingGotSw2 ; if low skip seting 

inc GotSwitch ; turn off the switches 

SkipSettingGotSw2: ; use hist to test resistors 

push TEMP ; 

Id TEMP,P3 

and TEMP,#00001 1 1 1 B ; turn both off 

or TEMP,#1 001 0000B ; turn on charge 

Id P3.TEMP ; 

pop TEMP 

nop ; delay 

tm P0,#10000000B ; test 4 uS later 

jr nz.GotOpen ; if so then open 

nop 

nop 

nop 



A-B3 



nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 

tm P0,#10000000B ; test 30uS out 

jp nz.GotLight ; if so then light 

iret 



STATUS1: 
tm 

jP 
iret 



P0,#10000000B 
nz.GotLearn 



; test 300uS later 

; if so then got the learn 



STATUS10: 
tm 

JP 
JP 

STATUS 1 1 : 
or 
iret 



PO.#10000000B 

nz.GotVac 

GotCmd 



P3,#11110000B 



; test 3mS later 

; if so then got the vac 



; turn all on discharge 



STATUS15: 
and 
tern 

jP 
tm 

i r 

inc 

SkipLedlnc: 
or 
iret 

STATUS26: 
or 
iret 



P3,#00001111B 
LearnLed.#00111111b 
2, Status Ret 
LearnLed,#1 1000000B 
nz, SkipLedlnc 
LeamLed 

P3,#01100000B 



P3,#11110000B 



; turn off both outputs 

; test for off 

; if so then return 

; test for radio blink mode 

; if not skip inc timer 



turn on the led 



; set the discharge state 



STATUS29: 
cp 
V 

Status29: 
clr 
Id 
iret 

BlinkTime: 
cp 
V 



STATUS,#30D 
uge.BlinkTime 

GotSwitch 
STATUS.#OFFH 



STATUS.#60D 
uge,Status29 



; test tor the blink 



; clear got a switch flag 
; reset the machine 
; return 

; test for the end of the run 
; if so return 



cp STATUS,#45D 

jr ult,STATUSl1 

cp STATUS,#56D 

jr uge.STATUSl 1 

jr STATUS 15 



lest for the led period 
if not then discahrge 

else set the program led 



SetSwPeriod: 
Id 
jr 

SetRsPeriod: 
Id 

SetT1 Period: 
Id 
Id 
iret 

GotOpen: 
call 
call 
call 
call 
iret 

GotLight: 
cp 
jr 

iret 

DoLight: 

call 
call 
call 
call 
iret 

GotLearn: 
cp 
jr 

iret 
Do Learn: 

call 
call 
all 
„all 
iret 

GotVac: 

cp 
jr 

iret 

DoVac: 

call 
call 
call 
call 
iret 
GotCmd: 
cp 
jr 



T1 Mirror,#SwPeriod 
SetT! Period 

T1Mirror,#RsPeriod 

T1 ,T1 Mirror 
TMR,#O0O01110B 



DecrementCmd 
DecrementLight 
DecrementLearn 
Decrement Vacation 



GotSwitch,#00 
z.DoLight 



DecrementCmd 
IncrementUght 
DecrementLearn 
DecrementVacation 



GotSwitch,#00 
z.DoLeam 



DecrementCmd 
DecrementLight 
IncrementLearn 
DecrementVacation 



GotSwitch,#00 
z.DoVac 



DecrementCmd 
DecrementLight 
DecrementLearn 
IncrementVacation 



GotSwitch,#00 
z.DoCmd 



; set the period 
; set the period 



turn on the timer 
return one shoted 

open decrement all 



light 

test for got switch 
if not then do the light 
else return 



; test for got switch 

; if not then do the learn 

; else return 



test for got switch 
if not then do the Vac 
else return 



; test for got switch 
; if not then do the cmd 



iret 




; else return 


DoCmd: 






call 


IncrementCmd 




call 


Decrement Light 




call 


DecrementLeam 




call 


DecrementVacation 




iret 






IncrementCmd: 






inc 


GotSwitch 


; set the got a switch flag 


cp 


CMD_DEB,#OFFH 


; test lor at the top 


jr 


z.okipumdinc 


, it so men skip 


inc 


CMD_DEB 


; inc 


inc 


BCMD_DEB 




cp 


CMD_DEB,#9d 


_; test for crnd 


jr 


nz,SkipCmdlnc 


; if not the skip Cmd 


Id 


CMD DEB,#OFFH 


; set deb back to top 


Id 


BCMD_DEB,CMD_DEB 




CmdSet: 






cp 


L_A_C,#42H 


; test for learn seq 


) r 


ult.NotlnLearn 


; if not in learn skip 


Id 


L_A_C,#042h 


; set the next level of force 


ir 


SkipCmdlnc 


; skip command 


Not In Learn: 






cp 


LEARNT,#OFFH 


; test for learn mode 




z.NLearnACmd 


; if not 


Id 


L A C,#042h 


; set the next level 


Id 


FORCES,#03 


; set the starting force to lowest 


Id 


LearnLed,#001 11111b 


; turn off the led 


Id 


LEARNT,#OFFH 


; set the learn timer 


Id 


LEARNDB,#OFFH 


; set the learn debounce 


i r 


SkipCmdlnc 


; DO NOT issue a command 


NLearnACmd: 




• f>At 4Ka loci ^AmmanH ac u/all rnriH 

, sei ine lasi cornrncirici do wan tinu 


Id 


LAST CMD,#055H 


Id 


SW_DATA,#CMD_SW . 


; set the switch data as command 


SkipCmdlnc: 






ret 






DecrementCmd: 


; set the got a switch flag 


inc 


GotSwitch 


cp 


CMDJDEB,#00 


; test for the bottom 


V 


z.SkipCmdDec 


* if the>n skin 


dec 


CMD DEB 


; dec 


dec 


BCMD DEB 




cp 


CMD_DEB.#0F6H 


; test for release 


i r 


nz, SkipCmdDec 


; if not done 


clr 


CMD DEB 




clr 


BCMD_DEB 




SkipCmdDec: 






ret 






IncrementLight 




; test for at the top 


cp * 


LIGHT_DEB,#OFFH 


V 


z.SkipLightlnc 


; if so then skip 




a 




inc 


LIGHT DEB 


cp 


LIGHT_DEB,#9d 


i r 


nz, SkipLightlnc 


LightSet: 




cp 


LEARNT,#OFFH 


V 


z. NotlnLearnLight 


cp 


STATE, #2d 


k 


nz, NotlnLearnLight 


JogUp: 




Id 


Jog.#055H 


j r 


SkipLightlnc 


NotlnLearnLight: 


Id 


LIGHT DEB,#OFFH 


Id 


SW_DATA,#L1GHT_SW 



; inc 

; test for light 

; if not skip light cmd 

; test for learn mode 

; test for up position 

; set the jog 



; set deb to top 

; set the switch data 



SkipLightlnc: 
ret 



DecrementLight: 


cp 


LIGHT_DEB t #00 


v 


z, SkipLightDec 


dec 


LIGHT DEB 


cp 


LIGHT_DEB,#0F6H 


v 


nz.SkipLightDec 


clr 


LIGHT_DEB 


SkipLightDec: 




ret 




IncrementVacation: 


cp 


VAC_DEB,#OFFH 




z.SkipVacInc 


inc 


VAC DEB 


cp 


VAC_DEB,#55d 


i r 


nz.SkipVacInc 


VacSet: 




cp 


LEARNT,#OFFH 


V 


z.NotlnLeamVac 


cp 


STATE,#2d 


V 


nz.NotlnLeamVac 


Jog Down: 




Id 


Jog,#OAAH 




SkipVacInc 



NotlnLearnVac: 

Id VAC_DEB,#OFFH 
Id VACCHANGE,#OAAH 

SkipVacInc: 
ret 

Decrement Vacation: 

cp VAC_DEB,#00 

jr z,SkipVacDec 

dec VAC_DEB 

cp VAC_DEB,#(0FFH-55D) 

jr nz.SkipVacDec 



; test for the bottom 
; if so then skip 
; dec 

; test for release 
; if not deon 



; test for at the top 
; if so then skip 
; inc 

; test for vacation activation 
; if not exit 

; test for learn mode 

; test for up position 

; jog down 



; set deb 

; set the toggle data 



; test for the bottom 
; if so then skip 
; dec 

; test for reset level 
; if not then return 



\s4 

ri 



a 

H 



tea? 
HI 



Clr 


VAC_DEB 


SkipVacDec: 




ret 




IncrementLearn: 


cp 


o 1 A 1 t ,#AU I (J_HbV 


j f 


z.SkipLearnlnc 


cp 


STATE,#UP_DIRECTION 


K 


2.SkipLearnlnc 


cp 


STATE,#DN_DIRECTION 


i r 


z.SkipLearnlnc 


cp 


LEARNDB,#0FFH 


K 


z.SkipLearnlnc 


inc 


LEARNDB 


cp 


LEARNDB.#9D 


V 


nz.SkipLearnlnc 


LearnSet: 




Id 


LEARNDB,#0FFH 


clr 


LEARNT 


Id 


LearnLed,#1 0000000B 


cp 


VACFLAG,#00H 


V 


z.SkipVacChange 


Id 


VACCHANGE,#OAAH 



SkipVacChange: 
SkipLearnlnc: 
ret 



Decrement Leam 


cp 


LEARNDB,#00 


V 


z, SkipLearnDec 


dec 


LEARNDB 


cp 


LEARNDB,#0F6H 


V 


nz.SkipVacDec 


clr 


LEARNDB 


SkipLearnDec: 




ret 





reset the debouncer 



; test for motion states 
; if so then do not inc 



; test for at the top 
; if so then skip 

; inc 

; test for learn activation 
; if not then exit 

; set deb 

; clear the learn timer 
; turn on the learn led 
; test the flag for out of vacation 

; if in vacation change it 



; test for the bottom 
; if so then skip 
; dec 

; test for reset level 
; if not then return 
; reset the debouncer 



Temperature measurement 



TempMeasure: 

.IF E21 

xor P1 ,#00000001 B 

.ELSE 

WDT 

.ENDIF 

di 

Id ForceAddHi,#0FFH 
Id ForceAddLo,#OFFH 
Id TMR,#00001011B 
or P2,#00000001b 
Id TMR,#00001010B 
LoopTillTempI : 

tm P2,#00100000B 
jr nz,TempMeasured 



Kick the external dog 
KICK THE DOG 

clear the value 

load the timer 

turn on the temperature rc 

run 

test for done 



i 



P 
P 



y3 
P 

til 

« 2 



PJ 



cp 

jr 

.IF 
xor 
.ELSE 
WDT 
.ENDIF 
LoopTillTemp2: 
tm 

K 

cp 



TO.#010H 

ugt.LoopTillTempI 

E21 

P1. #00000001 B 



Roll: 



dec 

cp 

IP 



P2,#00100000B 
nzJempMeasured 
T0,#0EEH 
ult,LoopTillTemp2 

ForceAddHi 
ForceAddHi,#OEFH 
ule.ErrorSetMaxTemp 
LoopTillTempI 



TempMeasured: 



Id 


ForceAddLo.TO 


com 


ForceAddHi 


com 


ForceAddLo 


Id 


A0BSTEST.#11D 


or 


AOBSF,#0000001 OB 


clr 


AOBSSTATUS 


.IF 


E21 


• xor 


Pi .#00000001 B 


.ELSE 




WDT 




.ENDIF 


.IF RTD 


TempOk: 




cp 


ForceAddHi,#OOd 


k 


z, MsbOO 


cp 


ForceAddHi,#01d 


V 


z.MsblO 


cp 


ForceAddHi,#11d 


V 


ult.Tn15 


cp 


ForceAddHi,#14h 


jr 


ult,Tn40 


jP 


ErrorSetMaxTemp 


MsbOO: 




cp 


Force AddLo.#07h 


k 


ule.ErrorSetMaxTemp 


cp 


ForceAddLo.#2Ah 


V 


ult,T85 


cp 


ForceAddLo,#6Fh 




ult.T60 


V 


T35 



; test tor lower roll 

; Kick the external dog 
; KICK THE DOG 

; test for done 
; test for lower roll 



; should be two test for too long 
; if so set error 
; loop till done 



; set the value 



; house cleaning 

; reset the test timer 

; set the flag for got a aobs 

; clear the aobs set state 



; Kick the external dog 
; KICK THE DOG • 

; test for count < 100H 
test for count < 200H 
test for < 1100h 
test for< 1400H 
else error 



; test for the bounds 
; if so then error 
; test for 85 deg 
; if so then jump 
; test for 60 deg 
; if so then jump 
; else it is 35 deg 



Msb10: 



T85: 



T60: 



T35: 



T10: 



Tn15: 



Tn40: 



CP 

jr 

jr 



Id 
Id 
Id 

•V 



Id 
Id 
Id 

jr 



Id 
Id 
Id 
jr 



Id 
Id 
Id 
jr 

Id 
Id 
Id 
jr 



Id 
Id 
W 
jr 

.ELSE 
TernpOk: 
cp 

jr 
cp 

jr 



ForceAddLo,#4Eh 

ult,T35 

T10 



Temperature,*! 25D 
ForceAddHi,#OOG 
ForceAddLo,#OFAH 
ExitTemperature 



Temperature,#1 OOD 
ForceAddHi,#O01H 
Force Add Lo , #00 E H 
ExitTemperature 



Temperature,#75D 
ForceAddHi,#001H 
ForceAddLo,#022H 
ExitTemperature 



Temperature,#50D 
ForceAddHi,#001H 
ForceAddLo,#040H 
ExitTemperature 



Temperature,#25D 
ForceAddHi,<j?001H 
ForceAddLo,#05EH 
ExitTemperature 



Temperature,#OD 
ForceAddHi,#001H 
ForceAddLo.#090H 
ExitTemperature 



ForceAddHi,#00d 
z,LessThen512 
ForceAddHi,#01d 
z,LessThen1024 

ErrorSetMaxTemp 



; test for 35 deg 
; if so then jump 
; else it is 1 0 deg 



set the temperature 
set the force 



test motor for too cold and exit 



set the temperature 
set the force 

test motor for too cold and exit 



set the temperature 
set the force 

test motor for too cold and exit 



set the temperature 
set the force 

test motor for too cold and exit 



set the temperature 
set the force 

test motor for too cold and exit 



set the temperature 
set the force 

test mote- for loo cold and exit 



test for the first512uS 
test for the 1024 limit 

; else set to max 



LessThen512: 
cp 

jr 
cp 

jr 



ForceAddLo,#0D0H 
ule, ErrorSetMaxTemp 
ForceAddLo,#OEEH 
ult,T85C 



; test for too low 

; if so set error values 

; test for 85C 

; if so set the temp 



i 



jr T60C 



LessThen1024: 
cp 

V 
cp 

cp 

jr 
cp 

V 
cp 

i r 



ForceAddLo,#OBH 
ult,T60C 

ForceAddLo,#26H 
ult,T35C 

ForceAddLo,#43H 
ult,T10C 

ForceAddLo,#60H 

urt,TN15C 

ForceAddLo,#80H 

ult,TN40C 

ErrorSetMaxTemp 



T85C: 



T60C: 



T35C: 



T10C: 



Id Temperature,#1 25D 
jr ExitTemperature 



Id Temperature,#1O0D 
jr ExitTemperature 



Id Temperature,#75D 
jr ExitTemperature 



Id Temperature,#50D 
jr ExitTemperature 



TN15C: 



Id Temperature,#25D 
jr ExitTemperature 



TN40C: 



Id Temperature,#OD 
jr ExitTemperature 



.ENDIF 



test for 60 C 

if so set 

test for 35C 

if so set the temp 

test for IOC 

if so set the temp 

test for -15C 

if so then set the temp 

test for -40C 

if so then set the temp 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



ErrorSetMaxTemp: 
.IF E21 

xor P1 ,#00006001 B 

.ELSE 

WDT 

.ENDIF 

Id ForceAddHi,#OOh 
Id ForceAddLo,#OFFH ■ 
Id Temperature,#85d+40D 
ExitTemperature: 

cp MotorTempHi.Temperature 



; Kick the external dog 

; KICK THE DOG 

; set the force to .5mS 

; set the temperature to the max 

; test for the motor value too low 



jr uge.MotorTempDone 
Id MotorTempHi.Ternperature 
MotorTempDone: 

and P2,#111li110b 



; if hoter or = don't change 
; else set = 

; turn off the temperature rc 



.IF ForceTempCompFlag 
.ELSE 

Id ForceAddHi,#OOh 
Id Force AddLo,#OFFH 
.ENDIF 



; set the force to .5mS 



.IF TempMeasureFlag 
.ELSE 

Id Temperature,#85d+40D 
.ENDIF 



; set the temperature to the m 



ei 
ret 



; reenable the interrupts 



.end 



